fix build

Author: soulomoon

hls-graph/test/DatabaseSpec.hs

@@ -20,6 +20,6 @@ spec = do
                 ruleBool
                 addRule $ \Rule _old _mode -> do
                     True <- apply1 (Rule @Bool)
-                    return $ RunResult ChangedRecomputeDiff "" ()
+                    return $ RunResult ChangedRecomputeDiff "" () mempty
             let res = shakeRunDatabase db $ pure $ apply1 (Rule @())
             timeout 1 res `shouldThrow` \StackException{} -> True

hls-graph/test/Example.hs

@@ -22,13 +22,13 @@ type instance RuleResult (Rule a) = a
 
 ruleUnit :: Rules ()
 ruleUnit = addRule $ \(Rule :: Rule ()) _old _mode -> do
-    return $ RunResult ChangedRecomputeDiff "" ()
+    return $ RunResult ChangedRecomputeDiff "" () mempty
 
 -- | Depends on Rule @()
 ruleBool :: Rules ()
 ruleBool = addRule $ \Rule _old _mode -> do
     () <- apply1 Rule
-    return $ RunResult ChangedRecomputeDiff "" True
+    return $ RunResult ChangedRecomputeDiff "" True mempty
 
 
 data CondRule = CondRule