ghc-exactprint-0.5.3.1: tests/examples/ghc80/T17b.hs

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