diff --git a/huttons-razor.cabal b/huttons-razor.cabal
--- a/huttons-razor.cabal
+++ b/huttons-razor.cabal
@@ -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
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/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 ""