remove debug print

2023-12-05 15:56:58 -04:00 · 2023-12-05 15:56:58 -04:00 · 1a586f80e6
commit 1a586f80e6
parent 10964f91bc
1 changed files with 2 additions and 4 deletions
--- a/Utility/Tmp.hs
+++ b/Utility/Tmp.hs
@ -35,10 +35,8 @@ type Template = String
 - to help identify what call was responsible.
 -}
 openTmpFileIn :: FilePath -> String -> IO (FilePath, Handle)
-openTmpFileIn dir template = do
-	liftIO $ print ("openTmpFileIn", dir, template)
-	openTempFile dir template
-		`catchIO` decoraterrror
+openTmpFileIn dir template = openTempFile dir template
+	`catchIO` decoraterrror
  where
 	decoraterrror e = throwM $
 		let loc = ioeGetLocation e ++ " template " ++ template