Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / stranal / should_compile / T1988.hs
1 {-# OPTIONS_GHC -O2 #-}
2
3 -- #1988: this one killed GHC 6.8.2
4 -- at least with -O2
5
6 module ShouldCompile where
7
8 newtype CFTree = CFTree (String, [CFTree])
9
10 prCFTree :: CFTree -> String
11 prCFTree (CFTree (_,trees)) = concatMap ps trees
12 where ps t@(CFTree (_,[])) = prCFTree t