Submission #161746

---

Source Code Expand

main = do
  x <- getContents
  print $ (x-1 :: Integer)

Submission Info

Compile Error

Main.hs:3:12:
    Couldn't match expected type `Integer' with actual type `String'
    In the first argument of `(-)', namely `x'
    In the second argument of `($)', namely `(x - 1 :: Integer)'
    In a stmt of a 'do' block: print $ (x - 1 :: Integer)