Fix bitrotted GHC API test T6145.
authorEdward Z. Yang <ezyang@cs.stanford.edu>
Fri, 30 May 2014 00:20:50 +0000 (17:20 -0700)
committerEdward Z. Yang <ezyang@cs.stanford.edu>
Fri, 30 May 2014 01:33:59 +0000 (18:33 -0700)
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
testsuite/tests/ghc-api/.gitignore
testsuite/tests/ghc-api/T6145.hs

index 98e8bd0..13b80ee 100644 (file)
@@ -27,15 +27,15 @@ main = do
                         l <- loadModule d
                         let ts=typecheckedSource l
 --                        liftIO (putStr (showSDocDebug (ppr ts)))
-                        let fs=filterBag (isDataCon . snd) ts
+                        let fs=filterBag isDataCon ts
                         return $ not $ isEmptyBag fs
         removeFile "Test.hs"
         print ok
     where 
       isDataCon (L _ (AbsBinds { abs_binds = bs }))
-        = not (isEmptyBag (filterBag (isDataCon . snd) bs))
+        = not (isEmptyBag (filterBag isDataCon bs))
       isDataCon (L l (f@FunBind {}))
-        | (MG (m:_) _ _) <- fun_matches f,
+        | (MG (m:_) _ _ _) <- fun_matches f,
           (L _ (c@ConPatOut{}):_)<-hsLMatchPats m,
           (L l _)<-pat_con c
         = isGoodSrcSpan l       -- Check that the source location is a good one