[hoc-cvs] hoc/HOC/HOC CannedCIFs.hs,1.1,1.2

[Wolfgang T. <wth...@us...>]

Update of /cvsroot/hoc/hoc/HOC/HOC
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30672/HOC/HOC

Modified Files:
	CannedCIFs.hs 
Log Message:
remove debug output


Index: CannedCIFs.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/HOC/HOC/CannedCIFs.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- CannedCIFs.hs	26 Jul 2005 01:29:58 -0000	1.1
+++ CannedCIFs.hs	26 Jul 2005 05:22:18 -0000	1.2
@@ -8,13 +8,10 @@
 import Data.List        ( intersperse )
 import Data.Maybe       ( catMaybes )
 import Data.Word        ( Word )
-import Debug.Trace
 import Foreign          ( Ptr )
 import Foreign.C
 import Language.Haskell.TH
 
-import System.IO
-
 expandSynonyms typ
     = typ >>= flip expandSynonyms1 []
     where
@@ -30,7 +27,6 @@
                 
         expandSynonyms1 (ConT n) pending
             = do
-                runIO $ (print n >> hFlush stdout)
                 info <- reify n
                 case info of
                     TyConI (TySynD _ args body) ->
@@ -121,6 +117,5 @@
         xt <- t
         case mbName of
             Just n | n `elem` ns
-                -> trace ("USING: " ++ n) $ varE $ mkNameG_v mod $ "cannedCIF_" ++ n
-            _ ->   trace ("NOT USING: " ++ show mbName ++ " " ++ show xt) $
-                    [| getCifForSelector $( [| undefined |] `sigE` t) |]
+                -> varE $ mkNameG_v mod $ "cannedCIF_" ++ n
+            _ ->   [| getCifForSelector $( [| undefined |] `sigE` t) |]