diff options
-rw-r--r-- | testkiki/testkiki.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testkiki/testkiki.hs b/testkiki/testkiki.hs index 606f268..b693601 100644 --- a/testkiki/testkiki.hs +++ b/testkiki/testkiki.hs | |||
@@ -310,8 +310,8 @@ doTests tkConfig = hspec $ do | |||
310 | 310 | ||
311 | 311 | ||
312 | 312 | ||
313 | safeFileInfo :: FilePath -> IO (UTCTime,FilePath) | 313 | saveFileInfo :: FilePath -> IO (UTCTime,FilePath) |
314 | safeFileInfo file = do | 314 | saveFileInfo file = do |
315 | mtime <- getModificationTime file | 315 | mtime <- getModificationTime file |
316 | let folder = takeDirectory file | 316 | let folder = takeDirectory file |
317 | fileDotOld = file ++ ".old" | 317 | fileDotOld = file ++ ".old" |