File: WhereIn3.hs.expected

package info (click to toggle)
haskell-ghc-exactprint 0.6.2-2
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 5,960 kB
  • sloc: haskell: 39,296; makefile: 7
file content (16 lines) | stat: -rwxr-xr-x 520 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
module WhereIn3 where

--A definition can be demoted to the local 'where' binding of a friend declaration,
--if it is only used by this friend declaration.

--Demoting a definition narrows down the scope of the definition.
--In this example, demote the top level 'sq' to 'sumSquares'
--In this case (there are multi matches), the parameters are not folded after demoting.

sumSquares x y = sq p x + sq p y
         where p=2  {-There is a comment-}

sq :: Int -> Int -> Int

anotherFun 0 y = sq y
     where  sq x = x^2