@@ -1,4 +1,3 @@
1−{-# LANGUAGE LambdaCase #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ViewPatterns #-}
43
@@ -74,10 +73,9 @@ renderTokenForest :: (IsToken t, Show t) => Forest t -> [t]
7473renderTokenForest = mconcat . fmap renderTokenTree
7574
7675renderTokenTree :: (IsToken t) => Tree t -> [t]
77−renderTokenTree = \case
78− (Node o@(toToken -> Just (TagOpen n _)) ts)
79− -> [o] <> renderTokenForest ts <> [fromToken $ TagClose n]
80− (Node t [])
81− -> [t]
82− bad
83− -> error "renderTokenTree: leaf node with children."
76+renderTokenTree (Node o@(toToken -> Just (TagOpen n _)) ts)
77+ = [o] <> renderTokenForest ts <> [fromToken $ TagClose n]
78+renderTokenTree (Node t []) =
79+ = [t]
80+renderTokenTree _
81+ = error "renderTokenTree: leaf node with children."