src/Repositories.hs Modified

@@ -158,7 +158,7 @@
 -}
 findFile :: Text -> [TreeFile] -> Maybe TreeFile
 findFile _ [] = Nothing
-findFile prefix (f:fs) = if (isReadme f) then (Just f) else (findFile prefix fs)
+findFile prefix (f:fs) = if isReadme f then Just f else findFile prefix fs
   where
     isReadme = isPrefixOf prefix . toLower . decodeUtf8With lenientDecode . treeFilePath
 

src/Main.hs Modified

@@ -52,7 +52,7 @@
 main :: IO ()
 main = do
     options <- parser
-    if (version options)
+    if version options
         then
             putStrLn $ "Your gitserve version is: " <> currentVersion
         else do