Remove unused code.

diff --git a/Language/TCT/Write/DTC.hs b/Language/TCT/Write/DTC.hs
index 0f0f71a52533596494743b867b53776003210c10..c60405174321a176fafd1a614dc5a65cb84f488b 100644 (file)
--- a/Language/TCT/Write/DTC.hs
+++ b/Language/TCT/Write/DTC.hs
@@ -171,20 +171,6 @@ gatherBrackets =
         TreeN KeyBrackets{} _ -> True
         _ -> False
 
-{-
-gatherColon :: Trees Key Tokens -> Maybe (Name, Tokens, Trees Key Tokens, Trees Key Tokens)
-gatherColon ts =
-       case Seq.viewl ts of
-        TreeN (KeyColon name _) (toList -> [Tree0 head]) :< (spanBar name -> (body,ts')) ->
-               Just (name,head,body,ts')
-        _ -> Nothing
-       where
-       spanBar name =
-               Seq.spanl $ \case
-                TreeN (KeyBar n _) _ | n == name -> True
-                _ -> False
--}
-
 gatherLI ::
  (Key -> Bool) ->
  Trees Key Tokens ->