Fix HTML5 rendering of NodePara.
[doclang.git] / Language / TCT / Read / Token.hs
index c974eb7ae92bb1259e7142d9b4a9e4473619688e..bca94f97d456d102d8898762d6d4a5fb3c4a0d27 100644 (file)
@@ -4,7 +4,6 @@
 {-# LANGUAGE Rank2Types #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE ViewPatterns #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 module Language.TCT.Read.Token where
 
@@ -132,7 +131,7 @@ appendLexeme lex acc = -- debug2 "appendLexeme" "lex" "acc" $ \lex acc ->
         LexemePairOpen ps -> foldl' open acc ps
                where
                -- NOTE: insert an empty node to encode <elem></elem>, not <elem/>
-               open a p@(Cell _bp ep (PairElem{})) = openPair a p `appendPairsText` Cell ep ep ""
+               open a p@(Cell _bp ep PairElem{}) = openPair a p `appendPairsText` Cell ep ep ""
                open a p = openPair a p
         LexemePairClose ps -> foldl' closePair acc ps
         LexemePairAny   ps -> foldl' openPair  acc ps
@@ -387,7 +386,7 @@ instance TagFrom (Cell TL.Text) where
        tagFrom (Cell bp ep t)
         | (w,r) <- TL.span isTagChar t
         , not $ TL.null w
-        , ew <- pos_column bp + sum (Text.length <$> (TL.toChunks w)) =
+        , ew <- pos_column bp + sum (Text.length <$> TL.toChunks w) =
                Just
                 ( Cell bp bp{pos_column=ew} w
                 , Cell bp{pos_column=ew} ep r )