more readable code and moved main to bottom

app/Main.hs

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