From c1fe5811daf9780bc4a822776c3eb5c920941d45 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 4 Jun 2016 01:16:16 +0200 Subject: cleanup --- src/Sequence/Contact/Types.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Sequence/Contact') diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs index 815bd4e..b63b369 100644 --- a/src/Sequence/Contact/Types.hs +++ b/src/Sequence/Contact/Types.hs @@ -55,7 +55,7 @@ data Stats = Prop , _sMaxVitality , _sSeqVal , _sPainTolerance - , _sFatigueTolerance :: FormulaM Stats Int + , _sFatigueTolerance :: Formula Stats } | Quadruped { _sAStrength @@ -78,7 +78,7 @@ data Stats = Prop , _sMaxVitality , _sSeqVal , _sPainTolerance - , _sFatigueTolerance :: FormulaM Stats Int + , _sFatigueTolerance :: Formula Stats } | Dolphin { _sAStrength @@ -101,7 +101,7 @@ data Stats = Prop , _sMaxVitality , _sSeqVal , _sPainTolerance - , _sFatigueTolerance :: FormulaM Stats Int + , _sFatigueTolerance :: Formula Stats } makeLenses ''Stats -- cgit v1.2.3