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"
|