From 2acf38c0ec4b1a37422d6f9bc55e4db0b46690ac Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Sat, 9 Jul 2016 14:45:41 +0200
Subject: prop robustness

---
 src/Sequence/Contact/Archetypes.hs     | 4 +++-
 src/Sequence/Contact/Types/Internal.hs | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/Sequence/Contact')

diff --git a/src/Sequence/Contact/Archetypes.hs b/src/Sequence/Contact/Archetypes.hs
index 6c13738..c0c043a 100644
--- a/src/Sequence/Contact/Archetypes.hs
+++ b/src/Sequence/Contact/Archetypes.hs
@@ -99,7 +99,9 @@ vitBar :: Ratio Int -> Traversal' Stats (Formula Stats)
 vitBar prop = sMaxVitality . mapping (scaled prop)
 
 prop = Prop
-       { _sSeqEpsilon = False
+       { _sRobustness = Nothing
+
+       , _sSeqEpsilon = False
 
        , _sHitzones = []
        , _sArmor = const def
diff --git a/src/Sequence/Contact/Types/Internal.hs b/src/Sequence/Contact/Types/Internal.hs
index fef2792..e9bb268 100644
--- a/src/Sequence/Contact/Types/Internal.hs
+++ b/src/Sequence/Contact/Types/Internal.hs
@@ -85,7 +85,9 @@ data ShockEffect = ShockEffect
                    }
 
 data Stats = Prop
-             { _sSeqEpsilon :: Bool
+             { _sRobustness :: Maybe (Formula Stats)
+
+             , _sSeqEpsilon :: Bool
 
              , _sHitzones :: Table Hitzone
              , _sArmor :: Hitzone -> Armor 
-- 
cgit v1.2.3