Gabriella439/optparse-generic
1
1
Fork 0
mirror of https://github.com/Gabriella439/optparse-generic.git synced 2024-11-27 02:42:33 +03:00
Code Issues Projects Releases Wiki Activity

Get rid of ParseField instance for String

Browse Source 
This is to encourage people to use the instance for `Text` instead and to
avoid overlap with the instance for lists
This commit is contained in:
Gabriel Gonzalez 2016-02-26 21:55:38 -08:00
parent df5544f0a5
commit fc5c972de4
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Options/Generic.hs
View File

@ -49,6 +49,7 @@ import Prelude hiding (FilePath)
import Options.Applicative (Parser, ReadM)
import qualified Data.Text
import qualified Data.Text.Lazy
import qualified Data.Typeable
import qualified Filesystem.Path.CurrentOS as Filesystem
import qualified Options.Applicative as Options
@ -126,12 +127,12 @@ parseString metavar m =
<> Options.long (Data.Text.unpack name)
Options.option Options.str fs
instance ParseField String where
parseField = parseString "STRING"
instance ParseField Text where
instance ParseField Data.Text.Text where
parseField = fmap (fmap Data.Text.pack) (parseString "TEXT")
instance ParseField Data.Text.Lazy.Text where
parseField = fmap (fmap Data.Text.Lazy.pack) (parseString "TEXT")
instance ParseField FilePath where
parseField = fmap (fmap Filesystem.decodeString) (parseString "FILEPATH")