pingu/org-to-mafiauniverse
1
0
Fork 0
mirror of https://github.com/The1Penguin/org-to-mafiauniverse.git synced 2024-11-22 10:18:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Switched autoformatter

Browse Source
This commit is contained in:
thepenguin 2022-10-27 12:20:36 +02:00
parent cea8d45ddd
commit 3b6daaba8e
No known key found for this signature in database
GPG Key ID: F258C8C10D060D5E
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/Main.hs
View File

@ -20,7 +20,9 @@ parseFile :: String -> String
parseFile = unlines . map (parseHelper fileParser) . lines parseFile = unlines . map (parseHelper fileParser) . lines
fileParser :: Parser String fileParser :: Parser String
fileParser = undefined fileParser = try $
string "* " <|>
string "** "
parseCli :: [String] -> IO String parseCli :: [String] -> IO String
parseCli [] = return usage parseCli [] = return usage
@ -32,8 +34,7 @@ parseCli [x, _] = return $ useArgs $ parseHelper argParse x
parseCli _ = fail "Too many arugemnts" parseCli _ = fail "Too many arugemnts"
argParse :: Parser String argParse :: Parser String
argParse = argParse = string "-" >> some alphaNumChar
string "-" >> some alphaNumChar
useArgs :: String -> String useArgs :: String -> String
useArgs [] = "" useArgs [] = ""