From 49d5fbcf0ac5322ba010230f0340b701d89d7fc2 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 10 Jun 2016 19:56:24 +0200 Subject: taking damage --- src/Sequence/Contact/Types.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Sequence/Contact') diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs index dff886d..47687b7 100644 --- a/src/Sequence/Contact/Types.hs +++ b/src/Sequence/Contact/Types.hs @@ -36,6 +36,8 @@ hitzone = iso (Hitzone . CI.mk) (CI.original . _hitzone) instance IsString Hitzone where fromString = view hitzone +makePrisms ''Hitzone + makeLenses ''Armor instance Default Armor where -- cgit v1.2.3