@@ -105,7 +105,7 @@ main = do
105105 try_sh a = catch_sh (a >>= pure . Right) (pure . Left)
106106 ensureThunkPackFails = try_sh pack >>= \case
107107 Left (RunFailed _ _ status _) | status /= 0 -> pure ()
108− _ -> fail "ob thunk unpack succeeded when it should have failed"
108+ _ -> fail "ob thunk pack succeeded when it should have failed"
109109 -- Untracked files
110110 ensureThunkPackFails
111111 run "git" ["add", T.pack file]