fix hls-graph

Author: soulomoon

hls-graph/test/ActionSpec.hs

@@ -87,7 +87,7 @@ spec = do
         ruleUnit
         addRule $ \Rule _old _mode -> do
             [()] <- applyWithoutDependency [Rule]
-            return $ RunResult ChangedRecomputeDiff "" True
+            return $ RunResult ChangedRecomputeDiff "" True mempty
 
       let theKey = Rule @Bool
       res <- shakeRunDatabase db $

hls-graph/test/Example.hs

@@ -39,7 +39,7 @@ type instance RuleResult CondRule = Bool
 ruleCond :: C.MVar Bool -> Rules ()
 ruleCond mv = addRule $ \CondRule _old _mode -> do
     r <- liftIO $ C.modifyMVar mv $ \x -> return (not x, x)
-    return $ RunResult ChangedRecomputeDiff "" r
+    return $ RunResult ChangedRecomputeDiff "" r mempty
 
 data BranchedRule = BranchedRule
     deriving (Eq, Generic, Hashable, NFData, Show, Typeable)
@@ -50,9 +50,9 @@ ruleWithCond = addRule $ \BranchedRule _old _mode -> do
     r <- apply1 CondRule
     if r then do
             _ <- apply1 SubBranchRule
-            return $ RunResult ChangedRecomputeDiff "" (1 :: Int)
+            return $ RunResult ChangedRecomputeDiff "" (1 :: Int) mempty
          else
-            return $ RunResult ChangedRecomputeDiff "" (2 :: Int)
+            return $ RunResult ChangedRecomputeDiff "" (2 :: Int) mempty
 
 data SubBranchRule = SubBranchRule
     deriving (Eq, Generic, Hashable, NFData, Show, Typeable)
@@ -61,4 +61,4 @@ type instance RuleResult SubBranchRule = Int
 ruleSubBranch :: C.MVar Int -> Rules ()
 ruleSubBranch mv = addRule $ \SubBranchRule _old _mode -> do
     r <- liftIO $ C.modifyMVar mv $ \x -> return (x+1, x)
-    return $ RunResult ChangedRecomputeDiff "" r
+    return $ RunResult ChangedRecomputeDiff "" r mempty