Egg/twin
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

formatting

Browse source
This commit is contained in:
Nox Sluijtman 2024-03-10 17:26:06 +01:00
parent 0f71972321
commit 72d7493ba6
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
app/Main.hs
View file

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