summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Tangle.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Tangle.hs b/src/Tangle.hs
index edfd6ed..080e6e9 100644
--- a/src/Tangle.hs
+++ b/src/Tangle.hs
@@ -34,7 +34,7 @@ tangle fragments =
fragmentGraph :: [Fragment] -> FragmentGraph
fragmentGraph =
- Map.fromListWith (++) .
+ Map.fromListWith (flip (++)) .
map (\block -> blockToPair $ assert (isBlockCode block) block)
where blockToPair (BlockCode name body) = (name, body)
blockToPair (Documentation {..}) =