Hufflepdf/src/PDF/EOL.hs

{-# 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)