summaryrefslogtreecommitdiff
path: root/testsuite/tests/rename/should_compile/T17b.hs
blob: d3983fd25d28a96537bd1a062ad7502bd6635db4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
{-# OPTIONS_GHC -fwarn-unused-local-binds #-}

-- #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