Merge branch 'master' into atomics
[ghc.git] / testsuite / tests / simplCore / should_compile / spec002.hs
1 {-# OPTIONS_GHC -O2 #-}
2
3 -- Ths one fooled the rule-matching in SpecConstr, and gave a CoreLint error
4
5 module Foo where
6
7 type Token = (Int, Int, Lex, String)
8
9 data Lex = Llbrace
10
11 laLayout :: Int -> [Int] -> [Token] -> [Token]
12
13 laLayout l (s:ss) (t1@(l1, n1, w1, c1) :
14 t2@(l2, n2, w2, c2) : ts)
15 | n1 < s = laLayout l2 (n2:s:ss) ts
16 | otherwise = laLayout l ss (t1:t2:ts)
17