utils/check-exact/cases/RmDecl1.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

module RmDecl1 where

sumSquares x = x * p
         where p=2  {-There is a comment-}

sq :: Int -> Int -> Int
sq pow 0 = 0
sq pow z = z^pow  --there is a comment

{- foo bar -}
anotherFun 0 y = sq y
     where  sq x = x^2