Layout and tiny refactoring only

compiler/typecheck/TcInteract.lhs

@@ -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