summaryrefslogtreecommitdiff
path: root/tests/TestUtils.hs
diff options
context:
space:
mode:
authorhdgarrood <>2019-10-20 21:32:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2019-10-20 21:32:00 (GMT)
commit5ad3069b08d142e1b278a1c0cb495de9ea7441a2 (patch)
treefb67390b7a61a787ecc6dde0217468ae02bdcfb4 /tests/TestUtils.hs
parent196340405320c2706aef57bcfe40cf4790e62de3 (diff)
version 0.13.40.13.4
Diffstat (limited to 'tests/TestUtils.hs')
-rw-r--r--tests/TestUtils.hs6
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