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) |]
|
