huttons-razor 0.1.0.1 → 0.1.1.0

raw patch · 2 files changed

+9/−11 lines, 2 files

Files

• huttons-razor.cabal +2/−2
• src/Main.hs +7/−9

@@ -1,5 +1,5 @@ name:                huttons-razor-version:             0.1.0.1+version:             0.1.1.0 synopsis:            Quick implemention of Hutton's Razor description:         Quick implemention of Hutton's Razor license:             BSD2@@ -14,7 +14,7 @@  source-repository head   type:     git-  location: git@github.com:steshaw/huttons-razor.git+  location: git@github.com:steshaw/huttons-razor  executable huttons-razor   main-is:             Main.hs

@@ -1,11 +1,7 @@-import System.Environment+import System.Environment (getArgs) import Control.Monad (forM_)-import Text.ParserCombinators.Parsec-import qualified Text.ParserCombinators.Parsec.Number as Numbers--expr = chainl1 int infixOp--int = Numbers.int+import Text.ParserCombinators.Parsec (spaces, char, chainl1, runParser)+import Text.ParserCombinators.Parsec.Number (int)  infixOp = do   spaces@@ -13,13 +9,15 @@   spaces   return (+) +expr = chainl1 int infixOp+ runExpr = runParser expr 0 "<input>"  showResult (Left a)  = "Error: " ++ show a showResult (Right a) = show a-  + main = do   putStrLn "args:"   args <- System.Environment.getArgs-  args `forM_` ((\s -> putStr " - " >> putStrLn s) . showResult . runExpr)+  forM_ args $ putStrLn . (" - " ++) . showResult . runExpr   putStrLn ""