Fix ToC.
[doclang.git] / Language / TCT / Read / Token.hs
index 26df317315e2388a3ca65e6ff456d8b06c8bfe37..d9cc5bfdacfdc9d242820695f8e1e1770d81128e 100644 (file)
@@ -108,7 +108,7 @@ closePairs (t0,ps) = dbg "closePairs" $
 appendLexeme :: Lexeme -> Pairs -> Pairs
 appendLexeme lex acc =
        dbg "appendLexeme" $
-       case dbg "appendLexeme" lex of
+       case lex of
         LexemePairOpen ps -> foldl' open acc ps
                where
                open a p@(Cell _bp ep (PairElem{})) = openPair a p `appendToken` (Cell ep ep $ TokenPlain "")
@@ -174,6 +174,11 @@ p_Tokens = pdbg "Tokens" $
         c@LexemePairClose{}:LexemePairAny p:acc -> c:LexemePairClose p:acc
         -- ("
         LexemePairAny p:o@LexemePairOpen{}:acc -> LexemePairOpen p:o:acc
+        
+        -- "(
+        o@LexemePairOpen{}:LexemePairAny p:acc -> o:LexemePairClose p:acc
+        -- )"
+        LexemePairAny p:c@LexemePairClose{}:acc -> c:LexemePairClose p:acc
        
         acc -> acc