abhin4v
/
ringo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor refactoring.

master
Abhinav Sarkar 2016-07-06 17:24:42 +05:30
parent 7cec652d96
commit 57e76321a1
No known key found for this signature in database
GPG Key ID: 7C9166A6F5465AD5
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ringo-app/src/Ringo/ArgParser.hs
View File

@ -21,19 +21,22 @@ data ProgArgs = ProgArgs
, progOutputDir :: FilePath
} deriving (Eq, Show)
textOption :: Mod OptionFields String -> Parser Text.Text
textOption o = Text.pack <$> strOption o
settingsParser :: Parser Settings
settingsParser = let Settings {..} = defSettings
in Settings
<$> (Text.pack <$> strOption (long "dim-prefix"
<> short 'd'
<> value (Text.unpack settingDimPrefix)
<> showDefault
<> help "Prefix for dimension tables"))
<*> (Text.pack <$> strOption (long "fact-prefix"
<> short 'f'
<> value (Text.unpack settingFactPrefix)
<> showDefault
<> help "Prefix for fact tables"))
<$> textOption (long "dim-prefix"
<> short 'd'
<> value (Text.unpack settingDimPrefix)
<> showDefault
<> help "Prefix for dimension tables")
<*> textOption (long "fact-prefix"
<> short 'f'
<> value (Text.unpack settingFactPrefix)
<> showDefault
<> help "Prefix for fact tables")
<*> minorOption "fact-infix"
settingFactInfix
"Infix for fact tables"
@ -84,11 +87,11 @@ settingsParser = let Settings {..} = defSettings
"Suffix template for table names in SQL"
where
minorOption longDesc defValue helpTxt =
Text.pack <$> strOption (long longDesc
<> hidden
<> value (Text.unpack defValue)
<> showDefault
<> help helpTxt)
textOption (long longDesc
<> hidden
<> value (Text.unpack defValue)
<> showDefault
<> help helpTxt)
progArgsParser :: Parser ProgArgs
progArgsParser =