diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Much/TreeView.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Much/TreeView.hs b/src/Much/TreeView.hs index 09eca5b..2b3c8f2 100644 --- a/src/Much/TreeView.hs +++ b/src/Much/TreeView.hs @@ -72,7 +72,7 @@ fromMessageForest = map fromMessageTree fromMessageTree :: Tree Message -> Tree TreeView fromMessageTree (Node m ms) = Node (TVMessage m) - (xconvHead m <> xconvBody m <> map fromMessageTree ms) + (xconvHead m <> xconvBody m <> fromMessageForest ms) xconvHead :: Message -> Forest TreeView |