From 1ec9e1494c544aa8edeada22b86cb46fc8b7a77e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 4 Mar 2019 14:12:00 -0400 Subject: [PATCH] use relatedTempate in viaTmp --- Utility/Tmp.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/Tmp.hs b/Utility/Tmp.hs index 6e04b10765..84118dc47d 100644 --- a/Utility/Tmp.hs +++ b/Utility/Tmp.hs @@ -28,7 +28,7 @@ viaTmp :: (MonadMask m, MonadIO m) => (FilePath -> v -> m ()) -> FilePath -> v - viaTmp a file content = bracketIO setup cleanup use where (dir, base) = splitFileName file - template = base ++ ".tmp" + template = relatedTemplate (base ++ ".tmp") setup = do createDirectoryIfMissing True dir openTempFile dir template