X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Freader%2FPrefixToHs.lhs;fp=ghc%2Fcompiler%2Freader%2FPrefixToHs.lhs;h=32eda93e625d94af187908a6086abbac72d993ab;hb=69e14f75a4b031e489b7774914e5a176409cea78;hp=9cc185c363cb021422bc896b558fcf1f675a1085;hpb=c9dfd084e476b18290e964e5e5d66adf0771b9e6;p=ghc-hetmet.git

diff --git a/ghc/compiler/reader/PrefixToHs.lhs b/ghc/compiler/reader/PrefixToHs.lhs
index 9cc185c..32eda93 100644
--- a/ghc/compiler/reader/PrefixToHs.lhs
+++ b/ghc/compiler/reader/PrefixToHs.lhs
@@ -108,10 +108,7 @@ cvTopDecls srcfile bind
   where
     go acc		  RdrNullBind		 = acc
     go acc                (RdrAndBindings b1 b2) = go (go acc b1) b2
-    go (topds, mbs, sigs) (RdrTyClDecl d)	 = (TyClD d : topds, mbs, sigs)
-    go (topds, mbs, sigs) (RdrInstDecl d)	 = (InstD d : topds, mbs, sigs) 
-    go (topds, mbs, sigs) (RdrDefaultDecl d)     = (DefD d  : topds, mbs, sigs)
-    go (topds, mbs, sigs) (RdrForeignDecl d)     = (ForD d  : topds, mbs, sigs)
+    go (topds, mbs, sigs) (RdrHsDecl d)	 	 = (d : topds, mbs, sigs)
     go (topds, mbs, sigs) (RdrSig (FixSig d))    = (FixD d  : topds, mbs, sigs)
     go (topds, mbs, sigs) (RdrSig sig)		 = (topds, mbs, sig:sigs)
     go (topds, mbs, sigs) (RdrValBinding bind)   = (topds, mbs `AndMonoBinds` bind, sigs)