mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove debug print

Browse source
This commit is contained in:
Joey Hess 2023-12-05 15:56:58 -04:00
parent 10964f91bc
commit 1a586f80e6
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Utility/Tmp.hs
View file

@ -35,10 +35,8 @@ type Template = String
- to help identify what call was responsible. - to help identify what call was responsible.
-} -}
openTmpFileIn :: FilePath -> String -> IO (FilePath, Handle) openTmpFileIn :: FilePath -> String -> IO (FilePath, Handle)
openTmpFileIn dir template = do openTmpFileIn dir template = openTempFile dir template
liftIO $ print ("openTmpFileIn", dir, template) `catchIO` decoraterrror
openTempFile dir template
`catchIO` decoraterrror
where where
decoraterrror e = throwM $ decoraterrror e = throwM $
let loc = ioeGetLocation e ++ " template " ++ template let loc = ioeGetLocation e ++ " template " ++ template