testsuite/tests/rename/should_compile/T17b.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{-# OPTIONS_GHC -fwarn-unused-local-binds #-}

-- Trac #17

module Temp (foo, bar, quux) where

top :: Int
top = 1

foo :: ()
foo = let True = True in ()

bar :: Int -> Int
bar match = 1

quux :: Int
quux = let local = True
       in 2