Commit d8cb9db5 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Layout and tiny refactoring only

parent a40f2735
......@@ -905,9 +905,8 @@ interactNext it inert
; return $ SR { sr_inerts = inerts_new
, sr_new_work = sr_new_work it `unionWorkLists` ir_new_work ir
, sr_stop = ir_stop ir } }
| otherwise = return $ itrAddInert inert it
where itrAddInert :: AtomicInert -> StageResult -> StageResult
itrAddInert inert itr = itr { sr_inerts = (sr_inerts itr) `updInertSet` inert }
| otherwise
= return $ it { sr_inerts = (sr_inerts it) `updInertSet` inert }
-- Do a single interaction of two constraints.
interactWithInert :: FDImprovements -> AtomicInert -> WorkItem -> TcS InteractResult
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment