2020-02-08 08:15:32 +01:00
|
|
|
module PDF.Encoding (
|
|
|
|
encoding
|
|
|
|
) where
|
|
|
|
|
2020-02-11 22:41:46 +01:00
|
|
|
import Control.Monad.Fail (MonadFail(..))
|
2020-02-08 08:15:32 +01:00
|
|
|
import PDF.Encoding.MacRoman (macRomanEncoding)
|
|
|
|
import PDF.Font (Font)
|
2020-02-11 22:41:46 +01:00
|
|
|
import Prelude hiding (fail)
|
2020-02-08 08:15:32 +01:00
|
|
|
|
2020-02-11 22:41:46 +01:00
|
|
|
encoding :: MonadFail m => String -> m Font
|
|
|
|
encoding "MacRomanEncoding" = return macRomanEncoding
|
|
|
|
encoding s = fail $ "Unknown encoding " ++ s
|