diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/boxy/T2193.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/boxy/T2193.hs | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/testsuite/tests/ghc-regress/boxy/T2193.hs b/testsuite/tests/ghc-regress/boxy/T2193.hs deleted file mode 100644 index 904a13721c..0000000000 --- a/testsuite/tests/ghc-regress/boxy/T2193.hs +++ /dev/null @@ -1,13 +0,0 @@ -{-# OPTIONS_GHC -XImpredicativeTypes -fno-warn-deprecated-flags #-} - -module Main where - -data Foo x y = Foo {foo1 :: x, foo2 :: y} -instance Functor (Foo x) where - fmap f (Foo x y) = Foo x (f y) - -bar :: a -> Foo (forall s. s) a -bar a = Foo undefined a - -main = print (foo2 (fmap (*2) (bar 2))) - |