diff options
Diffstat (limited to 'testsuite/tests/gadt/T2587.hs')
-rw-r--r-- | testsuite/tests/gadt/T2587.hs | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/testsuite/tests/gadt/T2587.hs b/testsuite/tests/gadt/T2587.hs index bcd0a443ac..cea1c092d3 100644 --- a/testsuite/tests/gadt/T2587.hs +++ b/testsuite/tests/gadt/T2587.hs @@ -1,18 +1,18 @@ -{-# LANGUAGE GADTs, ExistentialQuantification #-}
-{-# OPTIONS_GHC -O -fno-warn-overlapping-patterns #-}
-
--- Trac #2587
--- Actually this bug related to free variables and
--- type lets, but ostensibly it has a GADT flavour
--- Hence being in the GADT directory.
-
-module GadtBug(bug) where
-
-data Existential = forall a . Existential (Gadt a)
-
-data Gadt a where Value :: Gadt Double
-
-bug = [ match undefined | ps <- undefined, _ <- ps ]
- where
- match (Existential _) = undefined
- match (Existential _) = undefined
+{-# LANGUAGE GADTs, ExistentialQuantification #-} +{-# OPTIONS_GHC -O -fno-warn-overlapping-patterns #-} + +-- Trac #2587 +-- Actually this bug related to free variables and +-- type lets, but ostensibly it has a GADT flavour +-- Hence being in the GADT directory. + +module GadtBug(bug) where + +data Existential = forall a . Existential (Gadt a) + +data Gadt a where Value :: Gadt Double + +bug = [ match undefined | ps <- undefined, _ <- ps ] + where + match (Existential _) = undefined + match (Existential _) = undefined |