Embrace -XTypeInType, add -XStarIsType
[ghc.git] / testsuite / tests / simplCore / should_run / T14965.hs
1 module Main (main) where
2
3 import T14965_Sep
4
5 main :: IO ()
6 main = print $ cc bb
7
8 bb :: Sep
9 bb = catSep b1 b2
10
11 b1 :: Sep
12 b1 = Sep [] ["foo"] []
13
14 b2 :: Sep
15 b2 = Sep [] ["bar"] []