From a98fc96df4e3f0b832a7c5680989157c335b1c1f Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 27 Oct 2019 22:46:37 +0100 Subject: [PATCH] small fixes --- src/Main.hs | 5 +++-- src/Types/Configuration.hs | 3 ++- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index c54ea34..f486023 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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 $ diff --git a/src/Types/Configuration.hs b/src/Types/Configuration.hs index 7381fbc..0bbd06c 100644 --- a/src/Types/Configuration.hs +++ b/src/Types/Configuration.hs @@ -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