1 files changed, 7 insertions, 1 deletions

diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs
index 9854d92..80d4360 100644
--- a/src/Sequence/Contact/Types.hs
+++ b/src/Sequence/Contact/Types.hs
@@ -181,4 +181,10 @@ sDead :: Fold Stats (FormulaM Stats Bool)
 sDead = folding $ do
   maxVitality <- preview sMaxVitality
   damage <- view sTotalDamage
-  return $ liftM2 (>) <$> Just (return damage) <*> maxVitality
+  return $ liftM2 (>=) <$> Just (return damage) <*> maxVitality
+
+sUnconscious :: Fold Stats (FormulaM Stats Bool)
+sUnconscious = folding $ do
+  maxVitality <- preview sMaxVitality
+  damage <- view sFatigue
+  return $ liftM2 (>=) <$> Just (return damage) <*> maxVitality