51fdb18 · project-m36 · git.iko.soy

git.iko.soy/project-m36

fix hlint suggestion

commit51fdb18bd2fbe52464a65691002f63fcbef9baf9 authorAgentM <agentm@themactionfaction.com> dateMon 7 Jan 2019, 01:34 (8 years ago) parent5ad6147

1 file changed+1−1

unifiedsplit

src/lib/ProjectM36/TransactionGraph.hs+1−1

@@ -400,7 +400,7 @@ mergeTransactions stamp newId parentId mergeStrategy (headNameA, headNameB) grap

400400 transA <- transactionForHeadErr headNameA

401401 transB <- transactionForHeadErr headNameB

402402 disconParent <- transactionForId parentId graph

403− let subHeads = M.filterWithKey (\k _ -> elem k [headNameA, headNameB]) (transactionHeadsForGraph graph)

403+ let subHeads = M.filterWithKey (\k _ -> k `elem` [headNameA, headNameB]) (transactionHeadsForGraph graph)

404404 subGraph <- subGraphOfFirstCommonAncestor graph subHeads transA transB S.empty

405405 subGraph' <- filterSubGraph subGraph subHeads

406406 case createMergeTransaction stamp newId mergeStrategy subGraph' (transA, transB) of