From e1fd6671a27e3f4f213e77f57b8758f9640265c5 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Sat, 14 Feb 2015 16:29:11 -0500
Subject: Tangle: Order fragments correctly

---
 src/Tangle.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 {..}) =
-- 
cgit v1.2.3