Commit 44e336d3 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add another layout test

parent d9544b66
......@@ -2,7 +2,7 @@ TOP=../../..
include $(TOP)/mk/
include $(TOP)/mk/
layout001 layout002 layout003 layout004 layout005: %:
layout001 layout002 layout003 layout004 layout005 layout006: %:
$(RM) $*.hi $*.o
echo Running with -XNoAlternativeLayoutRule
-"$(TEST_HC)" -XNoAlternativeLayoutRule -c $*.hs 2>&1
......@@ -29,3 +29,9 @@ test('layout005',
['$MAKE -s --no-print-directory layout005'])
[extra_clean(['layout006.hi', 'layout006.o']),
['$MAKE -s --no-print-directory layout006'])
module M where
-- GHC's RdrHsSyn.lhs had a piece of code like this
f :: IO ()
| True = do
let x = ()
y = ()
return ()
| True = return ()
Running with -XNoAlternativeLayoutRule
Running with -XAlternativeLayoutRule
layout006.hs:12:2: parse error on input `|'
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment