diff options
Diffstat (limited to 'src/compiler/GFC.hs')
| -rw-r--r-- | src/compiler/GFC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GFC.hs b/src/compiler/GFC.hs index 6f909b511..4b88bd998 100644 --- a/src/compiler/GFC.hs +++ b/src/compiler/GFC.hs @@ -83,7 +83,7 @@ unionPGFFiles opts fs = where checkFirst name = do let pgfFile = outputPath opts (name <.> "pgf") - sourceTime <- liftIO $ maximum `fmap` mapM getModificationTime fs + sourceTime <- maximum `fmap` mapM getModificationTime fs targetTime <- maybeIO $ getModificationTime pgfFile if targetTime >= Just sourceTime then putIfVerb opts $ pgfFile ++ " is up-to-date." |