summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBenjamin Barenblat <bbaren@mit.edu>2015-02-14 16:29:11 -0500
committerBenjamin Barenblat <bbaren@mit.edu>2015-02-17 21:07:34 -0500
commite1fd6671a27e3f4f213e77f57b8758f9640265c5 (patch)
tree0561cdfa98143348665930bbb60938cfa598d632
parentc6ff79abd5c2992d74357b6b88b5484376f5fe34 (diff)
Tangle: Order fragments correctlyHEADmaster
-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 {..}) =