summaryrefslogtreecommitdiff
path: root/tests/examples/TypeSignature.hs
blob: cb52d6631ece0aab946f8143fc017ebe56911239 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
module TypeSignature where

{- Lifting baz to the top level should bring in xx and a as parameters,
   and update the signature to include these
-}
foo a = (baz xx a)
  where
    xx :: Int -> Int -> Int
    xx p1 p2 = p1 + p2

baz :: (Int -> Int -> Int) -> Int ->Int
baz xx a = xx 1 a