testsuite/tests/deSugar/should_run/T12595.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE BangPatterns #-}
module Main where

import GHC.Base

-- In Trac #12595 a bogus desugaring led (bizarrely)
-- to a top-level binding maxInt = maxInt
-- This test just checks that doesn't happen again

main = print (let !x = maxInt in even x)