HaRe-0.8.0.0: test/testdata/LiftToToplevel/D1A.hs

module LiftToToplevel.D1A where

{-lift 'sq' to top level. This refactoring
  affects module 'D1' and 'C1' -}

sumSquares (x:xs) = sq x + sumSquares xs
  where 
     sq x = x ^ pow
     -- sq x = x ^ 2
     pow =2 
 
sumSquares [] = 0

main = sumSquares [1..4]