Gabriella439/Haskell-Optparse-Generic-Library
1
1
Fork 0
mirror of https://github.com/Gabriella439/Haskell-Optparse-Generic-Library.git synced 2024-11-26 16:02:10 +03:00
Code Issues Projects Releases Wiki Activity

Add lazy ByteStrings

Browse Source
This commit is contained in:
Bernd Schwarzenbacher 2016-03-04 14:15:45 +01:00
parent e077f41cdd
commit cf907a3c31
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Options/Generic.hs
View File

@ -197,10 +197,12 @@ import Options.Applicative (Parser, ReadM)
import qualified Data.Text
import qualified Data.Text.Encoding
import qualified Data.Text.Lazy
import qualified Data.Text.Lazy.Encoding
import qualified Data.Time.Calendar
import qualified Data.Time.Format
import qualified Data.Typeable
import qualified Data.ByteString
import qualified Data.ByteString.Lazy
import qualified Filesystem.Path.CurrentOS as Filesystem
import qualified Options.Applicative as Options
import qualified Options.Applicative.Types as Options
@ -304,8 +306,14 @@ instance ParseField Data.Text.Text where
instance ParseField Data.ByteString.ByteString where
parseField = fmap (fmap (Data.Text.Encoding.encodeUtf8)) (parseText "UTF8-BYTESTRING")
parseTextLazy :: String -> Maybe Text -> Parser Data.Text.Lazy.Text
parseTextLazy metavar = fmap (fmap Data.Text.Lazy.pack) (parseString metavar)
instance ParseField Data.Text.Lazy.Text where
parseField = fmap (fmap Data.Text.Lazy.pack) (parseString "TEXT")
parseField = parseTextLazy "TEXT"
instance ParseField Data.ByteString.Lazy.ByteString where
parseField = fmap (fmap (Data.Text.Lazy.Encoding.encodeUtf8)) (parseTextLazy "UTF8-BYTESTRING")
instance ParseField FilePath where
parseField = fmap (fmap Filesystem.decodeString) (parseString "FILEPATH")
@ -353,6 +361,7 @@ instance ParseFields Integer
instance ParseFields Ordering
instance ParseFields Void
instance ParseFields Data.ByteString.ByteString
instance ParseFields Data.ByteString.Lazy.ByteString
instance ParseFields Data.Text.Text
instance ParseFields Data.Text.Lazy.Text
instance ParseFields FilePath
@ -464,6 +473,9 @@ instance ParseRecord FilePath where
instance ParseRecord Data.ByteString.ByteString where
parseRecord = fmap getOnly parseRecord
instance ParseRecord Data.ByteString.Lazy.ByteString where
parseRecord = fmap getOnly parseRecord
instance ParseRecord Data.Time.Calendar.Day where
parseRecord = fmap getOnly parseRecord