nek0/matebeamter
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

small fixes

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Main.hs
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 $

3
src/Types/Configuration.hs
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