[project @ 1998-02-03 11:24:18 by simonm]

[ghc-hetmet.git] / ghc / tests / typecheck / should_fail / tcfail076.hs

diff --git a/ghc/tests/typecheck/should_fail/tcfail076.hs b/ghc/tests/typecheck/should_fail/tcfail076.hs
index 08f775b..262b79f 100644 (file)
--- a/ghc/tests/typecheck/should_fail/tcfail076.hs
+++ b/ghc/tests/typecheck/should_fail/tcfail076.hs
@@ -1,3 +1,5 @@
+{-# OPTIONS -fglasgow-exts #-}
+
 {- 
        From: Ralf Hinze <ralf@uran.informatik.uni-bonn.de>
        Date: Fri, 15 Aug 1997 15:20:51 +0200 (MET DST)
@@ -7,11 +9,9 @@ program, which I think is ill-typed, passes silently the type checker.
 Needless to say that it uses some of GHC's arcane type extensions.
 -}
 
-{-# OPTIONS -fglasgow-exts #-}
-
 module ShouldFail where
 
-import GHC ( All )
+import GlaExts ( All )
 
 data ContT m a         =  KContT ((All res) => (a -> m res) -> m res)
 unKContT (KContT x)    =  x