Remove more -fglasgow-exts uses from tests

testsuite/tests/ghc-regress/arityanal/Main.hs

-{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# LANGUAGE CPP #-}
 
 -- Optimisation problem.  There are two missed opportunities for optimisation in alex_scan_tkn, below.
 

testsuite/tests/ghc-regress/array/should_run/all.T

@@ -19,7 +19,7 @@ test('arr012', skip_if_fast, compile_and_run, [''])
 test('arr013', skip_if_fast, compile_and_run, [''])
 test('arr014', skip_if_fast, compile_and_run, [''])
 test('arr015', skip_if_fast, compile_and_run, [''])
-test('arr016', normal, compile_and_run, ['-fglasgow-exts'])
+test('arr016', normal, compile_and_run, [''])
 test('arr017', skip_if_fast, compile_and_run, [''])
 test('arr018', skip_if_fast, compile_and_run, [''])
 test('arr019', normal, compile_and_run, [''])

testsuite/tests/ghc-regress/array/should_run/arr016.hs

+{-# LANGUAGE ScopedTypeVariables #-}
+
 module Main where
 
 {- 

testsuite/tests/ghc-regress/arrows/should_fail/arrowfail001.hs

-{-# OPTIONS -fglasgow-exts #-}
-{-# LANGUAGE Arrows #-}
+
+{-# LANGUAGE Arrows, ExistentialQuantification #-}
 
 -- Crashed GHC 6.4 with a lint error
 -- because of the existential

testsuite/tests/ghc-regress/arrows/should_run/arrowrun004.hs

-{-# OPTIONS -fglasgow-exts #-}
-{-# LANGUAGE Arrows #-}
+{-# LANGUAGE Arrows, MultiParamTypeClasses, FlexibleInstances #-}
 
 -- Simple expression parser
 -- (uses do-notation and operators)

testsuite/tests/ghc-regress/boxy/Church1.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE RankNTypes #-}
 
 module Church1 where 
 -- Church numerals w/o extra type constructors 

testsuite/tests/ghc-regress/boxy/Church2.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE RankNTypes #-}
 
 module Church2 where 
 -- Church numerals w/o extra type constructors: Should fail

testsuite/tests/ghc-regress/boxy/SystemF.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE Rank2Types #-}
 
 module SystemF where 
 -- System-F examples 

testsuite/tests/ghc-regress/codeGen/should_run/all.T

@@ -9,13 +9,13 @@ test('cgrun008', normal, compile_and_run, [''])
 test('cgrun009', normal, compile_and_run, [''])
 test('cgrun010', normal, compile_and_run, [''])
 test('cgrun011', normal, compile_and_run, [''])
-test('cgrun012', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
+test('cgrun012', only_compiler_types(['ghc']), compile_and_run, [''])
 test('cgrun013', normal, compile_and_run, [''])
 test('cgrun014', normal, compile_and_run, [''])
-test('cgrun015', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
+test('cgrun015', only_compiler_types(['ghc']), compile_and_run, [''])
 test('cgrun016', exit_code(1), compile_and_run, [''])
 test('cgrun017', normal, compile_and_run, [''])
-test('cgrun018', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
+test('cgrun018', only_compiler_types(['ghc']), compile_and_run, [''])
 test('cgrun019', normal, compile_and_run, [''])
 test('cgrun020', normal, compile_and_run, [''])
 test('cgrun021', normal, compile_and_run, [''])
@@ -28,11 +28,11 @@ test('cgrun025', compose(reqlib('regex-compat'), compose(extra_run_opts('cg025.h
 test('cgrun026', only_compiler_types(['ghc']), compile_and_run, [''])
 test('cgrun027', normal, compile_and_run, [''])
 test('cgrun028', normal, compile_and_run, [''])
-test('cgrun031', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
-test('cgrun032', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
-test('cgrun033', only_compiler_types(['ghc']), compile_and_run, ['-fglasgow-exts'])
+test('cgrun031', only_compiler_types(['ghc']), compile_and_run, [''])
+test('cgrun032', only_compiler_types(['ghc']), compile_and_run, [''])
+test('cgrun033', only_compiler_types(['ghc']), compile_and_run, [''])
 test('cgrun034', normal, compile_and_run, [''])
-test('cgrun035', normal, compile_and_run, ['-fglasgow-exts'])
+test('cgrun035', normal, compile_and_run, [''])
 test('cgrun036', normal, compile_and_run, [''])
 test('cgrun037', normal, compile_and_run, [''])
 test('cgrun038', normal, compile_and_run, [''])

testsuite/tests/ghc-regress/codeGen/should_run/cgrun012.hs

+{-# LANGUAGE MagicHash #-}
 -- !!! move arguments around on the stacks, mainly the B stack
 
 import GHC.Base	( Float#, Double#, Int#, Int(..) )

testsuite/tests/ghc-regress/codeGen/should_run/cgrun015.hs

+{-# LANGUAGE MagicHash #-}
 module Main ( main ) where
 
 import Foreign

testsuite/tests/ghc-regress/codeGen/should_run/cgrun018.hs

+{-# LANGUAGE MagicHash #-}
 -- !!! test of datatype with many unboxed fields
 --
 import GHC.Base( Float# )

testsuite/tests/ghc-regress/codeGen/should_run/cgrun026.hs

-{-# OPTIONS -fglasgow-exts #-}
+{-# LANGUAGE MagicHash #-}
 
 -- !!! simple tests of primitive arrays
 --

testsuite/tests/ghc-regress/codeGen/should_run/cgrun031.hs

+{-# LANGUAGE MagicHash #-}
 -- !! test GEN reps w/ unboxed values in them
 -- !! NB: it was the static ones that were hosed...
 --

testsuite/tests/ghc-regress/codeGen/should_run/cgrun032.hs

+{-# LANGUAGE MagicHash #-}
 -- !! pattern-matching failure on functions that return Int#
 
 --import PrelBase --ghc1.3

testsuite/tests/ghc-regress/codeGen/should_run/cgrun033.hs

+{-# LANGUAGE MagicHash #-}
 -- !! worker/wrapper turns ( \ <absent> -> Int# ) function
 -- !! into Int# -- WRONG
 

testsuite/tests/ghc-regress/codeGen/should_run/cgrun045.hs

-{-# OPTIONS -fglasgow-exts #-}
 
 module Main( main ) where
 

testsuite/tests/ghc-regress/codeGen/should_run/cgrun051.hs

-{-# OPTIONS -fglasgow-exts #-}
 
 module Main where
 

testsuite/tests/ghc-regress/concurrent/prog003/Collection.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies #-}
 module Collection where
 
 

testsuite/tests/ghc-regress/concurrent/should_run/conc007.hs

-{-# OPTIONS -fglasgow-exts #-}
 
 module Main where
 

testsuite/tests/ghc-regress/concurrent/should_run/conc008.hs

-{-# OPTIONS -fglasgow-exts #-}
 
 module Main where
 

testsuite/tests/ghc-regress/concurrent/should_run/conc009.hs

-{-# OPTIONS -fglasgow-exts #-}
 
 module Main where
 

testsuite/tests/ghc-regress/concurrent/should_run/conc010.hs

-{-# OPTIONS -fglasgow-exts #-}
 
 module Main where
 

testsuite/tests/ghc-regress/deSugar/should_run/dsrun013.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE UnboxedTuples #-}
 
 -- This one killed GHC 6.4.1, because the pattern match on the
 -- unboxed tuple generates a failure case, which defeated the

testsuite/tests/ghc-regress/deSugar/should_run/dsrun014.hs

-{-# OPTIONS -fglasgow-exts #-}
+{-# LANGUAGE UnboxedTuples #-}
 
 module Main where
 

testsuite/tests/ghc-regress/deriving/should_fail/drvfail002.hs

-{-# OPTIONS -fglasgow-exts #-}
-{-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE UndecidableInstances,
+             MultiParamTypeClasses, FunctionalDependencies #-}
 
 -- The Show instance for S would have form
 --	instance X T c => Show S

testsuite/tests/ghc-regress/deriving/should_fail/drvfail003.hs

-{-# OPTIONS -fglasgow-exts #-}
-
--- Made GHC 5.02.2 go into a loop when doing the 
--- context inference for deriving.  The -fglasgow-exts
--- flag is important; it didn't diverge without.
+{-# LANGUAGE FlexibleContexts #-}
+-- Made GHC 5.02.2 go into a loop when doing the
+-- context inference for deriving.  It only happened with
+-- the -fglasgow-exts flag (it didn't diverge without),
+-- so hopefully FlexibleContexts is the relevant extension.
 
 module ShouldFail where
 

testsuite/tests/ghc-regress/deriving/should_fail/drvfail006.hs

-{-# OPTIONS -fglasgow-exts #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 
 -- Testing the newtype-deriving stuff
 

testsuite/tests/ghc-regress/deriving/should_fail/drvfail008.hs

--- Should fail without -fglasgow-exts
--- Succeeds with -fglasgow-exts
+-- Should fail without GeneralizedNewtypeDeriving
+-- Succeeds with GeneralizedNewtypeDeriving
 
 module ShouldFail where
 

testsuite/tests/ghc-regress/deriving/should_fail/drvfail009.hs

-{-# OPTIONS -fglasgow-exts #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 
 -- Various newtype-deriving failures
 

testsuite/tests/ghc-regress/deriving/should_fail/drvfail010.hs

-{-# OPTIONS -fglasgow-exts #-}
+{-# LANGUAGE DeriveDataTypeable #-}
 
 module ShouldFail where
 import Data.Typeable

testsuite/tests/ghc-regress/deriving/should_run/drvrun017.hs

-{-# OPTIONS -fglasgow-exts #-}
+{-# LANGUAGE MagicHash #-}
 
 -- Test Show on unboxed types
 

testsuite/tests/ghc-regress/deriving/should_run/drvrun018.hs

-{-# OPTIONS -fglasgow-exts #-}
 
 -- Test Show on unboxed types
 

testsuite/tests/ghc-regress/deriving/should_run/drvrun019.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
 
 -- Tests newtype deriving with
 -- a non-type constructor in the representation

testsuite/tests/ghc-regress/deriving/should_run/drvrun022.hs

-{-# OPTIONS -fglasgow-exts #-}
+{-# LANGUAGE DeriveDataTypeable #-}
 
 module Main where
 

testsuite/tests/ghc-regress/driver/recomp005/Makefile

@@ -9,8 +9,8 @@ clean:
 
 recomp005: clean
 	cp C1.hs C.hs
-	'$(TEST_HC)' -fglasgow-exts --make E.hs -O
+	'$(TEST_HC)' --make E.hs -O
 	sleep 1
 	cp C2.hs C.hs
 	# Should recompile E, because C is now an orphan
-	'$(TEST_HC)' -fglasgow-exts --make E.hs -O
+	'$(TEST_HC)' --make E.hs -O

testsuite/tests/ghc-regress/ffi/should_compile/cc004.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE UnliftedFFITypes #-}
 -- !!! cc004 -- foreign declarations
 module ShouldCompile where
 

testsuite/tests/ghc-regress/ffi/should_fail/all.T

-def f( opts ):
-  opts.extra_hc_opts = '-fglasgow-exts'
-
-setTestOpts(f)
 
 # Missing:
 # test('cc002', normal, compile_fail, [''])

testsuite/tests/ghc-regress/ffi/should_fail/ccfail001.hs

-{-# OPTIONS -fglasgow-exts #-}
-{-# LANGUAGE ForeignFunctionInterface #-}
+
+{-# LANGUAGE ForeignFunctionInterface, MagicHash #-}
 
 -- Trac #1037 
 

testsuite/tests/ghc-regress/ffi/should_fail/ccfail002.hs

-{-# OPTIONS -fglasgow-exts #-}
-{-# LANGUAGE ForeignFunctionInterface #-}
+
+{-# LANGUAGE ForeignFunctionInterface, UnboxedTuples, MagicHash, UnliftedFFITypes #-}
 
 -- Test for Trac #1680
 

testsuite/tests/ghc-regress/ffi/should_fail/ccfail003.hs

+{-# LANGUAGE UnliftedFFITypes, MagicHash #-}
 -- !!! illegal types in foreign export delarations
-
 module ShouldFail where
 
 import GHC.Exts

testsuite/tests/ghc-regress/ffi/should_run/all.T

@@ -4,12 +4,6 @@
 #	extra run flags
 #	expected process return value, if not zero
 
-def f( opts ):
-  opts.extra_hc_opts = '-fglasgow-exts'
-
-setTestOpts(f)
-
-
 # Doesn't work with External Core due to __labels
 test('fed001', compose(only_compiler_types(['ghc']),
 			expect_fail_for(['extcore','optextcore'])),

testsuite/tests/ghc-regress/ffi/should_run/ffi001.hs

-{-# OPTIONS -fglasgow-exts #-}
+
 
 -- !!! A simple FFI test
 

testsuite/tests/ghc-regress/ghci.debugger/HappyTest.hs

-{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# LANGUAGE CPP #-}
 import Char
 #if __GLASGOW_HASKELL__ >= 503
 import Data.Array

testsuite/tests/ghc-regress/ghci.debugger/scripts/dynbrk005.script

 -- TH generated code does not get instrumented
 
-:set -fglasgow-exts
 :set -XTemplateHaskell
 :l dynbrk005
 :st normal_fn [1,2,3]

testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring001.hs

 #!/usr/bin/env runhaskell
-{-# OPTIONS_GHC -fglasgow-exts #-}
 --
 -- Uses multi-param type classes
 --

testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring004.hs

 #!/usr/bin/env runhaskell
-{-# OPTIONS_GHC -fglasgow-exts #-}
 --
 -- Uses multi-param type classes
 --

testsuite/tests/ghc-regress/lib/Data.ByteString/bytestring005.hs

 #!/usr/bin/env runhaskell
-{-# OPTIONS_GHC -fglasgow-exts #-}
 --
 -- Uses multi-param type classes
 --

testsuite/tests/ghc-regress/lib/IORef/ioref001.hs

-{-# OPTIONS -fglasgow-exts #-}
 
 module Main where
 

testsuite/tests/ghc-regress/lib/Regex/regex002.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
 import Text.Regex.Base
 import Text.Regex.Posix((=~),(=~~)) -- or DFA or PCRE or PosixRE
 import qualified Data.ByteString.Char8 as B(ByteString,pack)

testsuite/tests/ghc-regress/lib/Regex/regex003.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
 import Text.Regex.Base
 import Text.Regex.Posix(Regex,(=~),(=~~)) -- or DFA or PCRE or PosixRE
 import qualified Data.ByteString.Char8 as B(ByteString,pack)

testsuite/tests/ghc-regress/lib/should_run/Memo1.lhs

@@ -5,7 +5,7 @@
 % Hashing memo tables.
 
 \begin{code}
-{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# LANGUAGE CPP #-}
 
 module Memo1
 	{-# DEPRECATED "This module is unmaintained, and will disappear soon" #-}

testsuite/tests/ghc-regress/lib/should_run/Memo2.lhs

@@ -5,7 +5,7 @@
 % Hashing memo tables.
 
 \begin{code}
-{-# OPTIONS -fglasgow-exts -cpp #-}
+{-# LANGUAGE CPP #-}
 
 module Memo2
 	{-# DEPRECATED "This module is unmaintained, and will disappear soon" #-}

testsuite/tests/ghc-regress/lib/should_run/all.T

@@ -52,4 +52,4 @@ test('stableptr003', normal, compile_and_run, [''])
 test('stableptr004', extra_run_opts('+RTS -K4m -RTS'), compile_and_run, [''])
 test('stableptr005', normal, compile_and_run, [''])
 
-test('weak001', normal, compile_and_run, ['-fglasgow-exts'])
+test('weak001', normal, compile_and_run, [''])

testsuite/tests/ghc-regress/lib/should_run/packedstring001.hs

-{-# OPTIONS -fglasgow-exts #-}
 
 module Main (main) where
 

testsuite/tests/ghc-regress/lib/should_run/stableptr001.hs

-{-# OPTIONS -fglasgow-exts #-}
 
 module Main where
 

testsuite/tests/ghc-regress/mdo/should_fail/mdofail005.hs

--- {-# OPTIONS -fglasgow-exts #-}
 
--- use of mdo requires -fglasgow-exts to be given,
--- so let's try leaving it out
+-- use of mdo requires an extension,
+-- so let's try not enabling it
 
 module Main (main) where
 

testsuite/tests/ghc-regress/numeric/should_run/all.T

@@ -38,11 +38,11 @@ test('numrun011', normal, compile_and_run, [''])
 test('numrun012', normal, compile_and_run, [''])
 test('numrun013', normal, compile_and_run, [''])
 test('numrun014', normal, compile_and_run, [''])
-test('arith016', compose(normal,only_compiler_types(['ghc'])), compile_and_run, ['-fglasgow-exts'])
+test('arith016', compose(normal,only_compiler_types(['ghc'])), compile_and_run, [''])
 test('arith017', normal, compile_and_run, [''])
 test('arith018', normal, compile_and_run, [''])
 test('arith019', normal, compile_and_run, [''])
-test('expfloat', normal, compile_and_run, ['-fglasgow-exts'])
+test('expfloat', normal, compile_and_run, [''])
 
-test('1603', skip, compile_and_run, ['-fglasgow-exts'])
+test('1603', skip, compile_and_run, [''])
 test('3676', expect_broken(3676), compile_and_run, [''])

testsuite/tests/ghc-regress/numeric/should_run/arith016.hs

+{-# LANGUAGE MagicHash #-}
 
 module Main where
 

testsuite/tests/ghc-regress/numeric/should_run/expfloat.hs

+{-# LANGUAGE MagicHash #-}
 -- tests that expFloat# works (had linking problems on Windows)
 
 import GHC.Exts

testsuite/tests/ghc-regress/parser/should_fail/all.T

@@ -11,7 +11,7 @@ test('readFail009', normal, compile_fail, [''])
 # test10: missing
 test('readFail011', normal, compile_fail, [''])
 test('readFail012', normal, compile_fail, [''])
-test('readFail013', normal, compile_fail, ['-fglasgow-exts'])
+test('readFail013', normal, compile_fail, [''])
 test('readFail014', normal, compile_fail, [''])
 test('readFail015', normal, compile_fail, [''])
 test('readFail016', normal, compile_fail, [''])

testsuite/tests/ghc-regress/parser/should_run/readRun002.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE MagicHash #-}
 -- !!! Negative unboxed literals, part 1
 -- They don't have to be as standards-compliant
 -- or follow so many weird cases as the normal

testsuite/tests/ghc-regress/parser/should_run/readRun003.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE MagicHash #-}
 -- !!! Negative unboxed literals, part 2
 
 import GHC.Exts

testsuite/tests/ghc-regress/parser/unicode/utf8_024.hs

-{-# OPTIONS_GHC -fglasgow-exts #-}
+{-# LANGUAGE ExplicitForAll, UnicodeSyntax #-}
 {-
 Test for valid unicode identifiers
 

testsuite/tests/ghc-regress/profiling/should_run/T3001-2.hs

 
 -- A second test for trac #3001, which segfaults when compiled by
--- GHC 6.10.1 and run with +RTS -hb. Most of the code is frmo the
+-- GHC 6.10.1 and run with +RTS -hb. Most of the code is from the
 -- binary 0.4.4 package.
 
-{-# OPTIONS_GHC -fglasgow-exts #-}
 {-# LANGUAGE CPP, FlexibleInstances, FlexibleContexts #-}
 
 module Main (main) where

testsuite/tests/ghc-regress/programs/cvh_unboxing/Append.lhs

 \section{Versions of {\tt append}}
 
 \begin{code}
+{-# LANGUAGE MagicHash #-}
+
 module Append where
 
 import GHC.Exts

testsuite/tests/ghc-regress/programs/cvh_unboxing/Main.lhs

 \begin{code}
+{-# LANGUAGE MagicHash #-}
+
 import GHC.Exts
 import Types
 import Append

testsuite/tests/ghc-regress/programs/cvh_unboxing/Types.lhs

 \section{IDS types}
 
 \begin{code}
+{-# LANGUAGE MagicHash #-}
+
 module Types where
 
 import GHC.Exts

testsuite/tests/ghc-regress/programs/cvh_unboxing/test.T

@@ -6,5 +6,5 @@ test('cvh_unboxing',
                    'Main.hi',   'Main.o',
                    'Types.hi',  'Types.o'])],
      multimod_compile_and_run,
-     ['Main', '-fglasgow-exts'])
+     ['Main', ''])
 

testsuite/tests/ghc-regress/programs/fast2haskell/test.T

@@ -4,5 +4,5 @@ test('fast2haskell',
       extra_clean(['Main.hi',         'Main.o',
                    'Fast2haskell.hi', 'Fast2haskell.o'])],
      multimod_compile_and_run,
-     ['Main', '-fglasgow-exts'])
+     ['Main', ''])
 

testsuite/tests/ghc-regress/programs/thurston-modular-arith/Main.hs

-{-# OPTIONS -fglasgow-exts #-}
-{-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE UndecidableInstances, ExistentialQuantification,
+              ScopedTypeVariables, Rank2Types #-}
 
 --	Modular arithmetic, due to Dale Thurston
 

testsuite/tests/ghc-regress/programs/thurston-modular-arith/TypeVal.hs

-{-# OPTIONS -fglasgow-exts #-}
-{-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies,
+             UndecidableInstances, ExistentialQuantification,
+             ScopedTypeVariables #-}
 
 -- TypeVal.hs: dependent types, here we come!
 module TypeVal where

testsuite/tests/ghc-regress/rebindable/rebindable2.hs

-{-# OPTIONS -fglasgow-exts -XNoImplicitPrelude -XNPlusKPatterns #-}
+{-# LANGUAGE NoImplicitPrelude, NPlusKPatterns #-}
 
 module Main where
 	{

testsuite/tests/ghc-regress/rebindable/rebindable3.hs

-{-# OPTIONS -fglasgow-exts -XNoImplicitPrelude -XNPlusKPatterns #-}
+{-# LANGUAGE NoImplicitPrelude, NPlusKPatterns #-}
 
 module Main where
 	{

testsuite/tests/ghc-regress/rebindable/rebindable4.hs

-{-# OPTIONS -fglasgow-exts -XNoImplicitPrelude -XNPlusKPatterns #-}
+{-# LANGUAGE NoImplicitPrelude, NPlusKPatterns #-}
 
 module Main where
 	{

testsuite/tests/ghc-regress/rebindable/rebindable5.hs

-{-# OPTIONS -fglasgow-exts -XNoImplicitPrelude -XNPlusKPatterns #-}
+{-# LANGUAGE NoImplicitPrelude, NPlusKPatterns, TypeSynonymInstances,
+             MultiParamTypeClasses, FunctionalDependencies #-}
 
 module Main where
 	{

testsuite/tests/ghc-regress/rebindable/rebindable6.hs

-{-# OPTIONS -fglasgow-exts -XNoImplicitPrelude -XNPlusKPatterns #-}
-
+{-# LANGUAGE NoImplicitPrelude, NPlusKPatterns, Rank2Types,
+             ScopedTypeVariables, FlexibleInstances #-}
 module Main where
 	{
 --	import Prelude;