summaryrefslogtreecommitdiff
path: root/testsuite/tests/rename/should_compile/rn049.hs
blob: 83f6c5c27690f3c9f66ff7fb3a7a2595e838ecde (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
-- GHC 6.4.1 said
--  test.hs:1:5:
--     Warning: accepting non-standard pattern guards 
--		(-fglasgow-exts to suppress this message)
--         [x <- ((1 * 2) + 3) * 4, undefined]
-- Note the wrongly-parenthesised expression

{-# LANGUAGE Haskell98 #-}

module ShouldCompile where

main | x <- 1*2+3*4 = x