diff options
| -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 {..}) = |