mirror of
https://github.com/The1Penguin/org-to-mafiauniverse.git
synced 2024-11-22 02:08:13 +00:00
30 lines
661 B
Haskell
30 lines
661 B
Haskell
module Main where
|
|
|
|
import Control.Monad
|
|
import System.Environment
|
|
import System.Exit
|
|
import Text.ParserCombinators.ReadP
|
|
|
|
parse :: ReadP String -> String -> String
|
|
parse rules = fst . last .readP_to_S rules
|
|
|
|
main :: IO ()
|
|
main = useArgs =<< ( parse argParse . unlines) <$> getArgs
|
|
|
|
argParse :: ReadP String
|
|
argParse =
|
|
string "-" >> (many1 (satisfy (/= ' ')))
|
|
|
|
useArgs :: String -> IO a
|
|
useArgs [] = exit
|
|
useArgs ('h':_) = usage >> exit
|
|
useArgs ('v':_) = version >> exit
|
|
useArgs (_:xs) = useArgs xs
|
|
|
|
usage :: IO ()
|
|
usage = putStrLn "Usage: otm [-hv] [file]"
|
|
version :: IO ()
|
|
version = putStrLn "otm 0.1"
|
|
exit :: IO a
|
|
exit = exitWith ExitSuccess
|