13 lines
332 B
Haskell
13 lines
332 B
Haskell
module PDF.Encoding (
|
|
encoding
|
|
) where
|
|
|
|
import Control.Monad.Fail (MonadFail(..))
|
|
import PDF.Encoding.MacRoman (macRomanEncoding)
|
|
import PDF.Font (Font)
|
|
import Prelude hiding (fail)
|
|
|
|
encoding :: MonadFail m => String -> m Font
|
|
encoding "MacRomanEncoding" = return macRomanEncoding
|
|
encoding s = fail $ "Unknown encoding " ++ s
|