From 72d7493ba6f567fff12008bbf809ced82eb19f96 Mon Sep 17 00:00:00 2001
From: Marty Sluijtman <marty.wanderer@disroot.org>
Date: Sun, 10 Mar 2024 17:26:06 +0100
Subject: [PATCH] formatting

---
 app/Main.hs | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 713f28c..f83133c 100644
--- a/app/Main.hs
+++ b/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