2020-02-05 14:42:51 +01:00
|
|
|
module PDF.Font (
|
2020-02-05 17:42:17 +01:00
|
|
|
Font
|
|
|
|
|
, FontSet
|
|
|
|
|
, emptyFont
|
2020-02-05 14:42:51 +01:00
|
|
|
) where
|
|
|
|
|
|
|
|
|
|
import Data.ByteString (ByteString)
|
2020-02-05 17:42:17 +01:00
|
|
|
import Data.Map (Map)
|
|
|
|
|
import PDF.Object (Name)
|
2020-02-05 14:42:51 +01:00
|
|
|
|
2020-02-05 17:42:17 +01:00
|
|
|
type Font = ByteString -> Either String ByteString
|
|
|
|
|
type FontSet = Map Name Font
|
|
|
|
|
|
|
|
|
|
emptyFont :: Font
|
|
|
|
|
emptyFont _ = Left "No fond loaded"
|
