Fixed a bug I introduced because of a delete in the wrong buffer

This commit is contained in:
Ben Selfridge 2018-01-05 14:23:11 -08:00
parent 3c3ffbc375
commit 5cf4c68498

View File

@ -261,7 +261,7 @@ liftST = Generator . lift . lift . lift
-- | Append an assignment statement to the list of statements in the current -- | Append an assignment statement to the list of statements in the current
-- 'PreBlock' -- 'PreBlock'
addAssignment :: AssignRhs arch ids tp addAssignment :: AssignRhs arch (Value arch ids) tp
-> Generator arch ids s (Assignment arch ids tp) -> Generator arch ids s (Assignment arch ids tp)
addAssignment rhs = do addAssignment rhs = do
l <- newAssignId l <- newAssignId