blob: c6c498b710cdfe59dab04a62a91b6c159e6dd6a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# OPTIONS_GHC -O2 #-}
-- #1988: this one killed GHC 6.8.2
-- at least with -O2
module ShouldCompile where
newtype CFTree = CFTree (String, [CFTree])
prCFTree :: CFTree -> String
prCFTree (CFTree (_,trees)) = concatMap ps trees
where ps t@(CFTree (_,[])) = prCFTree t
|
