Skip to content
This repository was archived by the owner on Nov 1, 2018. It is now read-only.

Commit aeafc4a

Browse files
committed
made build/cfg with aspects base + hmtyast work again, to be used for standalone (no prelude) use
1 parent 6eb59da commit aeafc4a

File tree

2 files changed

+6
-3
lines changed

2 files changed

+6
-3
lines changed

EHC/src/ehc/CHR/CtxtRedOnly/Constraint.chs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -216,7 +216,7 @@ predOccCnstrMpLiftScope sc
216216
%%% Reduction info: how reduction was done
217217
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
218218

219-
%%[(9 hmtyinfer) export(RedHowAnnotation(..))
219+
%%[(9 hmtyinfer || hmtyast) export(RedHowAnnotation(..))
220220
data RedHowAnnotation
221221
= RedHow_ByInstance !HsName !Pred !PredScope -- inst name, for pred, in scope
222222
| RedHow_BySuperClass !HsName !Int !CTag -- field name, offset, tag info of dict
@@ -286,7 +286,7 @@ instance PP RedHowAnnotation where
286286
%%% Reduction info: specifically, how scope reduction was done, (1) for comparison (2) for debugging
287287
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
288288

289-
%%[(9 hmtyinfer) export(ByScopeRedHow(..))
289+
%%[(9 hmtyinfer || hmtyast) export(ByScopeRedHow(..))
290290
data ByScopeRedHow
291291
= ByScopeRedHow_Prove -- scope reduction based on Prove
292292
| ByScopeRedHow_Assume -- scope reduction based on Assume

EHC/src/ehc/Gam/DataGam.chs

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -218,8 +218,8 @@ data DataGamInfo
218218
, dgiMbGenerInfo :: !(Maybe Int) -- max kind arity for generic behavior, currently \in {0,1}
219219
%%]]
220220
}
221-
deriving Generic
222221
%%]]
222+
deriving Generic
223223

224224
instance Show DataGamInfo where
225225
show _ = "DataGamInfo"
@@ -474,6 +474,9 @@ instance Serialize DataFldInConstr where
474474

475475
%%[(50 hmtyinfer)
476476
instance Serialize DataTagInfo
477+
%%]
478+
479+
%%[50
477480
instance Serialize DataGamInfo
478481
%%]
479482

0 commit comments

Comments
 (0)