X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fdeforest%2FTreelessForm.hi;fp=ghc%2Fcompiler%2Fdeforest%2FTreelessForm.hi;h=68b982e6f02d0dfa6ff790fb063d03e7967ad6f4;hb=10521d8418fd3a1cf32882718b5bd28992db36fd;hp=f043c612da4912d70f6d02306a74d5898866b696;hpb=7fa716e248a1f11fa686965f57aebbb83b74fa7b;p=ghc-hetmet.git

diff --git a/ghc/compiler/deforest/TreelessForm.hi b/ghc/compiler/deforest/TreelessForm.hi
index f043c61..68b982e 100644
--- a/ghc/compiler/deforest/TreelessForm.hi
+++ b/ghc/compiler/deforest/TreelessForm.hi
@@ -1,4 +1,4 @@
-{-# GHC_PRAGMA INTERFACE VERSION 5 #-}
+{-# GHC_PRAGMA INTERFACE VERSION 3 #-}
 interface TreelessForm where
 import CmdLineOpts(SwitchResult)
 import CoreSyn(CoreExpr)
@@ -6,5 +6,4 @@ import DefSyn(DefBindee)
 import Id(Id)
 import SplitUniq(SplitUniqSupply)
 convertToTreelessForm :: (a -> SwitchResult) -> CoreExpr Id DefBindee -> SplitUniqSupply -> CoreExpr Id DefBindee
-	{-# GHC_PRAGMA _A_ 2 _U_ 012 _N_ _S_ "AS" {_A_ 1 _U_ 12 _N_ _N_ _N_ _N_} _N_ _N_ #-}