formatting

app/Main.hs

@@ -12,15 +12,15 @@ instance Show CgiState where
     show CgiSuccess = "20 text/gemini; lang=en; charset=utf-8\r"
 
 data Args where
-  Args :: { title       :: String,
-            directory   :: FilePath,
-            fileHead    :: FilePath,
-            names       :: Bool,
-            cgi         :: Bool,
-            back        :: String,
-            reverseSort :: Bool,
-            filename    :: Bool} ->
-            Args
+  Args :: { title       :: String
+          , directory   :: FilePath
+          , fileHead    :: FilePath
+          , names       :: Bool
+          , cgi         :: Bool
+          , back        :: String
+          , reverseSort :: Bool
+          , filename    :: Bool
+          } -> Args
 
 args :: Parser Args
 args = Args
@@ -78,7 +78,7 @@ mkIndex False _ dir file =
 mkIndex True prependFile dir file =
   let path = dir ++ "/" ++ file
       basename = if prependFile
-                 -- I wish I had BQNs Under mofiefier/combiantor here...
+                 -- I wish I had BQNs Under modifier/combinator here...
                  then (" " ++) . reverse . drop 4 . reverse $ file
                  else ""
       trim string