diff options
Diffstat (limited to 'testsuite/tests/rename/should_compile/rn049.hs')
| -rw-r--r-- | testsuite/tests/rename/should_compile/rn049.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_compile/rn049.hs b/testsuite/tests/rename/should_compile/rn049.hs new file mode 100644 index 0000000000..83f6c5c276 --- /dev/null +++ b/testsuite/tests/rename/should_compile/rn049.hs @@ -0,0 +1,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 +
\ No newline at end of file |