diff options
| author |  Benjamin Barenblat <bbaren@mit.edu> | 2015-02-14 16:29:11 -0500 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@mit.edu> | 2015-02-17 21:07:34 -0500 |
| commit | e1fd6671a27e3f4f213e77f57b8758f9640265c5 (patch) | |
| tree | 0561cdfa98143348665930bbb60938cfa598d632 | |
| parent | c6ff79abd5c2992d74357b6b88b5484376f5fe34 (diff) | |
| -rw-r--r-- | src/Tangle.hs | 2 |
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 {..}) = |