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 where
opts = info (options <**> helper) opts = info (options <**> helper)
( fullDesc ( fullDesc
<> progDesc "Run the \"matebeamter\" frontend to the \"mateamt\" API." <> 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 :: ReadState -> Application
userApp initState = serveWithContext userApi EmptyContext $ userApp initState = serveWithContext userApi EmptyContext $

View file

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