yogsototh/haskell-turtle-library
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add header and footer

Browse source
This commit is contained in:
Index Int 2015-05-14 04:01:04 +03:00
parent 770948ce8f
commit 421137d147
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Turtle/Options.hs
View file

@ -12,6 +12,8 @@ module Turtle.Options
, helpmsg
, shortname
, longname
, header
, footer
) where
import Data.Text (Text)
@ -42,13 +44,19 @@ flag :: a -> a -> Opts.Mod Opts.FlagFields a -> Opts.Parser a
flag = Opts.flag
metavar :: Opts.HasMetavar f => Text -> Opts.Mod f a
metavar str = Opts.metavar (Text.unpack str)
metavar t = Opts.metavar (Text.unpack t)
helpmsg :: Text -> Opts.Mod f a
helpmsg str = Opts.help (Text.unpack str)
helpmsg t = Opts.help (Text.unpack t)
shortname :: Opts.HasName f => Char -> Opts.Mod f a
shortname = Opts.short
longname :: Opts.HasName f => Text -> Opts.Mod f a
longname str = Opts.long (Text.unpack str)
header :: Text -> Opts.InfoMod a
header t = Opts.header (Text.unpack t)
footer :: Text -> Opts.InfoMod a
footer t = Opts.footer (Text.unpack t)