17 lines
307 B
Haskell
17 lines
307 B
Haskell
|
module PDF.Font (
|
||
|
Font
|
||
|
, FontSet
|
||
|
, emptyFont
|
||
|
) where
|
||
|
|
||
|
import Data.ByteString (ByteString)
|
||
|
import Data.Map (Map)
|
||
|
import Data.Text (Text)
|
||
|
import PDF.Object (Name)
|
||
|
|
||
|
type Font = ByteString -> Either String Text
|
||
|
type FontSet = Map Name Font
|
||
|
|
||
|
emptyFont :: Font
|
||
|
emptyFont _ = Left "No fond loaded"
|