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

@ -59,7 +59,8 @@ main = do
opts = info (options <**> helper)
( fullDesc
<> progDesc "Run the \"matebeamter\" frontend to the \"mateamt\" API."
<> header "matebeamter - a client for mateamt" )
<> 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