20 lines
406 B
Haskell
20 lines
406 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
module PDF.EOL (
|
|
Style(..)
|
|
, charset
|
|
, parser
|
|
) where
|
|
|
|
import Control.Applicative ((<|>))
|
|
import PDF.Parser (MonadParser, string)
|
|
|
|
data Style = CR | LF | CRLF deriving Show
|
|
|
|
charset :: String
|
|
charset = "\r\n"
|
|
|
|
parser :: MonadParser m => m Style
|
|
parser =
|
|
(string "\r\n" >> return CRLF)
|
|
<|> (string "\r" >> return CR)
|
|
<|> (string "\n" >> return LF)
|