blob: b95db17f76da1ad5591d9f162fbc44d351e04803 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
-- Expects to pull -XStandaloneDeriving from the default compiler flags.
module Main (main) where
data Foo = Foo
deriving instance Show Foo
-- Expects -XLambdaCase to be passed via the 'compiler_flags' rule attribute.
dummyId :: Foo -> Foo
dummyId = \case
Foo -> Foo
main :: IO ()
main = print $ dummyId Foo
|