Skip to content

Commit

Permalink
clarify error call
Browse files Browse the repository at this point in the history
  • Loading branch information
pepeiborra committed Mar 17, 2021
1 parent 8c1a5ec commit d31fc6d
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Development/Shake/Internal/Core/Build.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit d31fc6d

Please sign in to comment.