14 lines
383 B
Haskell
14 lines
383 B
Haskell
{-# LANGUAGE FlexibleContexts #-}
|
|
module PDF.Encoding (
|
|
encoding
|
|
) where
|
|
|
|
import Control.Monad.Except (MonadError(..))
|
|
import PDF.Encoding.MacRoman (macRomanEncoding)
|
|
import PDF.Font (Font)
|
|
import Prelude hiding (fail)
|
|
|
|
encoding :: MonadError String m => String -> m Font
|
|
encoding "MacRomanEncoding" = return macRomanEncoding
|
|
encoding s = throwError $ "Unknown encoding " ++ s
|