prop robustness

2 files changed, 6 insertions, 2 deletions

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