small fixes

src/Main.hs

@@ -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 $

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