module FunctionArgument () where foo :: Int -> Int foo x = x + 1