We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent d6a6f52 commit e1e81caCopy full SHA for e1e81ca
src/Stack/Build/Source.hs
@@ -496,7 +496,7 @@ getFileDigestMaybe fp =
496
-- | Create FileCacheInfo for a file.
497
calcFci :: MonadIO m => (FileSize,SHA256) -> FilePath -> m FileCacheInfo
498
calcFci (size, digest) fp = liftIO $ do
499
- modTime' <- fmap modificationTime $ getFileStatus fp
+ modTime' <- modificationTime <$> getFileStatus fp
500
return FileCacheInfo
501
{ fciModTime = modTime'
502
, fciSize = size
0 commit comments