1 files changed, 1 insertions, 1 deletions

diff --git a/src/Sequence/Contact/Archetypes.hs b/src/Sequence/Contact/Archetypes.hs
index 626104b..1bf2b7e 100644
--- a/src/Sequence/Contact/Archetypes.hs
+++ b/src/Sequence/Contact/Archetypes.hs
@@ -50,7 +50,7 @@ archetypes = [ ("Mensch", human)
 cTable :: Ord v => [(Integer, Integer, v)] -> Table v
 cTable = Map.fromList . map (\(from, to, value) -> (value, (abs (to - from) + 1) % 100))
 
-death :: Hitzone -> FormulaM Stats (Maybe Stats)
+death :: Hitzone -> Effect
 death zone = Effect "Tod" . runMaybeT $ do
   maxVitality <- (MaybeT . preview $ ctx . sMaxVitality) >>= lift
   currentDmg <- MaybeT . preview $ ctx . sDamage' zone