[project @ 1997-05-26 03:30:57 by sof]
authorsof <unknown>
Mon, 26 May 1997 03:30:57 +0000 (03:30 +0000)
committersof <unknown>
Mon, 26 May 1997 03:30:57 +0000 (03:30 +0000)
Unfold lexeme now takes Bool indicating whether INLINE pragma annotation was used

ghc/compiler/rename/ParseIface.y

index 2e58b1f..ce0739f 100644 (file)
@@ -12,6 +12,7 @@ import HsDecls                ( HsIdInfo(..) )
 import HsTypes         ( mkHsForAllTy )
 import HsCore
 import Literal
+import BasicTypes      ( Fixity(..), FixityDirection(..), NewOrData(..), Version(..) )
 import HsPragmas       ( noGenPragmas, noDataPragmas, noClassPragmas, noClassOpPragmas, noInstancePragmas )
 import IdInfo          ( exactArity, mkStrictnessInfo, mkBottomStrictnessInfo,
                          ArgUsageInfo, FBTypeInfo, ArityInfo, StrictnessInfo
@@ -92,7 +93,7 @@ parseIface ls = parseIToks (lexIface ls)
        TYPE_PART       { ITtysig $$ }
        ARITY_PART      { ITarity }
        STRICT_PART     { ITstrict }
-       UNFOLD_PART     { ITunfold }
+       UNFOLD_PART     { ITunfold $$ }
        DEMAND          { ITdemand $$ }
        BOTTOM          { ITbottom }
        LAM             { ITlam }