Fix Figure XmlPos.

[doclang.git] / Language / TCT / Write / Text.hs

diff --git a/Language/TCT/Write/Text.hs b/Language/TCT/Write/Text.hs
index d3a250318079c360405caca3c0a21cb87116db8e..9f89d5c250fbeae253c7ac2f13435837bc3f593c 100644 (file)
--- a/Language/TCT/Write/Text.hs
+++ b/Language/TCT/Write/Text.hs
@@ -10,13 +10,11 @@ import Data.Eq (Eq(..))
 import Data.Foldable (Foldable(..))
 import Data.Function (($), (.))
 import Data.Functor ((<$>))
-import Data.Int (Int)
-import Data.Int (Int64)
+import Data.Int (Int,Int64)
 import Data.Monoid (Monoid(..))
 import Data.Ord (Ord(..))
 import Data.Semigroup (Semigroup(..))
 import Data.Sequence (ViewL(..), ViewR(..))
-import Data.String (String)
 import Data.Text (Text)
 import Data.TreeSeq.Strict (Tree(..),Trees)
 import Prelude (Num(..), undefined, Integral(..))
@@ -30,14 +28,7 @@ import qualified Data.Text.Lazy as TL
 import Language.TCT.Tree
 import Language.TCT.Cell
 import Language.TCT.Token
-import Language.TCT.Elem hiding (trac,dbg)
-
-import Debug.Trace (trace)
-trac :: String -> a -> a
--- trac _m x = x
-trac m x = trace m x
-dbg :: Show a => String -> a -> a
-dbg m x = trac (m <> ": " <> show x) x
+import Language.TCT.Elem
 
 tl :: Text -> TL.Text
 tl = TL.fromStrict