We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 17fae59 commit 6bbf502Copy full SHA for 6bbf502
src/Act/Syntax/TimeAgnostic.hs
@@ -186,6 +186,7 @@ data Ref (k :: RefKind) (t :: Timing) where
186
deriving instance Show (Ref k t)
187
188
instance Eq (Ref k t) where
189
+ CVar _ at x == CVar _ at' x' = at == at' && x == x'
190
SVar _ c x == SVar _ c' x' = c == c' && x == x'
191
SMapping _ r ixs == SMapping _ r' ixs' = r == r' && ixs == ixs'
192
SField _ r c x == SField _ r' c' x' = r == r' && c == c' && x == x'
@@ -367,6 +368,7 @@ instance Timable (Exp a) where
367
368
go :: Timable c => c Untimed -> c Timed
369
go = setTime time
370
371
+
372
instance Timable (TItem a k) where
373
setTime time (Item t vt ref) = Item t vt $ setTime time ref
374
0 commit comments