diff options
Diffstat (limited to 'tests/TestUtils.hs')
| -rw-r--r-- | tests/TestUtils.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/TestUtils.hs b/tests/TestUtils.hs index fe0c14d..78ba841 100644 --- a/tests/TestUtils.hs +++ b/tests/TestUtils.hs @@ -198,13 +198,13 @@ checkMain ms = makeActions :: [P.Module] -> M.Map P.ModuleName FilePath -> P.MakeActions P.Make makeActions modules foreigns = (P.buildMakeActions modulesDir (P.internalError "makeActions: input file map was read.") foreigns False) - { P.getInputTimestamp = getInputTimestamp + { P.getInputTimestampsAndHashes = getInputTimestampsAndHashes , P.getOutputTimestamp = getOutputTimestamp , P.progress = const (pure ()) } where - getInputTimestamp :: P.ModuleName -> P.Make (Either P.RebuildPolicy (Maybe UTCTime)) - getInputTimestamp mn + getInputTimestampsAndHashes :: P.ModuleName -> P.Make (Either P.RebuildPolicy a) + getInputTimestampsAndHashes mn | isSupportModule (P.runModuleName mn) = return (Left P.RebuildNever) | otherwise = return (Left P.RebuildAlways) where |