clarify error call

ndmitchell · Mar 17, 2021 · d31fc6d · d31fc6d
1 parent 8c1a5ec
commit d31fc6d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Development/Shake/Internal/Core/Build.hs b/src/Development/Shake/Internal/Core/Build.hs
@@ -152,8 +152,8 @@ updateReverseDeps myId db prev new = do
         updateResult f (Ready r) = Ready $ f r
         updateResult f (Failed e r) = Failed e (fmap f r)
         updateResult f (Loaded r) = Loaded $ addDep r
-        updateResult _ Running{} = error "Running"
-        updateResult _ Missing{} = error "Missing"
+        updateResult _ Running{} = error "Running: can this happen?"
+        updateResult _ Missing{} = error "Missing: can this happen?"
 
 -- | Compute the value for a given RunMode and a restore function to run
 buildRunMode :: Global -> Stack -> Database -> Maybe (Result a) -> Wait Locked RunMode