Refactor items, suspect a leak

2022-07-21 00:50:50 +01:00
parent e2ccf7296a
commit 22787abf8f
5 changed files with 165 additions and 136 deletions
@@ -1,13 +1,8 @@
 {-# LANGUAGE StrictData #-}
-{-# LANGUAGE TemplateHaskell #-}
+--{-# LANGUAGE TemplateHaskell #-}
 module Dodge.Item.Data where
-import Control.Lens
+--import Control.Lens
 data CurseStatus 
    = Uncursed 
    | UndroppableIdentified 
    | UndroppableUnidentified
-data BarrelSpread
-    = AlignedBarrels
-    | SpreadBarrels   {_spreadAngle :: Float}
-    | RotatingBarrels {_rotatingBarrelInaccuracy :: Float}
-makeLenses ''BarrelSpread