Remove duplicate test

testsuite/tests/indexed-types/should_compile/T7332.hs

-{-# LANGUAGE NoMonomorphismRestriction #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# LANGUAGE FlexibleInstances, FlexibleContexts #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE MagicHash #-}
-
-module Oleg where
-
-import GHC.Exts hiding( build )
-import Data.Monoid
-
-newtype DC d = DC d
-    deriving (Show, Monoid)
-
-instance IsString (DC String) where
-    fromString = DC
-
-
-class Monoid acc => Build acc r where
-    type BuildR r :: *		-- Result type
-    build :: (acc -> BuildR r) -> acc -> r
-
-instance Monoid dc => Build dc (DC dx) where
-    type BuildR (DC dx) = DC dx
-    build tr acc = tr acc
-
-instance (Build dc r, a ~ dc) => Build dc (a->r) where
-    type BuildR (a->r) = BuildR r
-    build tr acc s = build tr (acc `mappend` s)
-
-
--- The type is inferred
-tspan :: (Monoid d, Build (DC d) r, BuildR r ~ DC d) => r
-tspan = build (id :: DC d -> DC d) mempty
-
-foo = tspan "aa"
-
-{-  Need (Monoid d, Build (DC d) (a -> t), BuildR (a -> t) ~ DC d, IsString a)
-
-BuildR (a -> t) = BuildR t
-Build (DC d) (a -> t) ===>  (Build (DC d) t, a ~ DC d)
-
- -}
-
-foo1 = tspan (tspan "aa")
-
-bar = tspan "aa" :: DC String

testsuite/tests/indexed-types/should_compile/all.T

@@ -200,6 +200,5 @@ test('T7156', normal, compile, [''])
 test('T5591a', normal, compile, [''])
 test('T5591b', normal, compile, [''])
 test('T7280', normal, compile, [''])
-test('T7332', normal, compile, [''])