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