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

more readable code and moved main to bottom

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

29
app/Main.hs
View File

@ -8,37 +8,27 @@ import System.Environment
import System.Exit import System.Exit
import Text.Megaparsec hiding (satisfy) import Text.Megaparsec hiding (satisfy)
import Text.Megaparsec.Char import Text.Megaparsec.Char
import Text.ParserCombinators.ReadP hiding (string)
type Parser = Parsec Void String type Parser = Parsec Void String
parseHelper :: Parser String -> String -> String
parseHelper parser x = case parse parser "" x of
Left bundle -> error $ errorBundlePretty bundle
Right text -> text
parseFile :: String -> String parseFile :: String -> String
parseFile = parseFile = unlines . map (parseHelper fileParser) . lines
unlines
. map
( \x -> case parse fileParser "" x of
Left bundle -> error ("Error parsing text" ++ errorBundlePretty bundle)
Right text -> text
)
. lines
fileParser :: Parser String fileParser :: Parser String
fileParser = undefined fileParser = undefined
main :: IO ()
main = putStr =<< parseCli =<< getArgs
parseCli :: [String] -> IO String parseCli :: [String] -> IO String
parseCli [] = return usage parseCli [] = return usage
parseCli [x] = parseCli [x] =
if head x /= '-' if head x /= '-'
then parseFile <$> readFile x then parseFile <$> readFile x
else case parse argParse "" x of else return $ useArgs $ parseHelper argParse x
Left bundle -> fail $ "Failed parsing args" ++ errorBundlePretty bundle parseCli [x, _] = return $ useArgs $ parseHelper argParse x
Right text -> return $ useArgs text
parseCli [x, _] = case parse argParse "" x of
Left bundle -> fail $ "Failed parsing args" ++ errorBundlePretty bundle
Right text -> return $ useArgs text
parseCli _ = fail "Too many arugemnts" parseCli _ = fail "Too many arugemnts"
argParse :: Parser String argParse :: Parser String
@ -56,3 +46,6 @@ usage = "Usage: otm [-hv] [file]"
version :: String version :: String
version = "otm 0.1" version = "otm 0.1"
main :: IO ()
main = putStr =<< parseCli =<< getArgs