Add generic derivations and To/FromJSON instances

src/Dodge/Data/FloorItem.hs

@@ -0,0 +1,16 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE DeriveGeneric #-}
+module Dodge.Data.FloorItem
+    where
+import Dodge.Data.Item
+import Geometry.Data
+import GHC.Generics
+import Data.Aeson
+import Control.Lens
+data FloorItem = FlIt { _flIt :: Item , _flItPos :: Point2 , _flItRot :: Float, _flItID :: Int}
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON FloorItem where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON FloorItem
+makeLenses ''FloorItem