small fixes

This commit is contained in:
nek0 2019-10-27 22:46:37 +01:00
parent 52968be8b1
commit a98fc96df4
2 changed files with 5 additions and 3 deletions

View File

@ -58,8 +58,9 @@ main = do
where
opts = info (options <**> helper)
( fullDesc
<> progDesc "Run the \"matebeamter\" frontend to the \"mateamt\" API."
<> header "matebeamter - a client for mateamt" )
<> progDesc "Run the \"matebeamter\" frontend to the \"mateamt\" API."
<> header "matebeamter - a client for mateamt"
)
userApp :: ReadState -> Application
userApp initState = serveWithContext userApi EmptyContext $

View File

@ -29,9 +29,10 @@ instance FromYAML Configuration where
<*> m .: "listen_port"
<*> m .: "locales_location"
data Options = Options
newtype Options = Options
{ optConfigLocation :: T.Text
}
deriving (Show)
options :: O.Parser Options
options = Options