SubFun2.hs

module SubFun2 where

--Any unused parameter to a definition can be removed.

--In this example: remove x. The brackets enclosing 'foo' will also be removed.

main :: Int
main =
  let
    foo x = h + t where (h,t) = head $ zip [1..10] [3..10]
  in
    (foo 4) + (foo 5)