Cleanup

src/Dodge/Data/FloorItem.hs

@@ -9,7 +9,7 @@ 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)
+  deriving (Eq,Show,Read,Generic)
 instance ToJSON FloorItem where
     toEncoding = genericToEncoding defaultOptions
 instance FromJSON FloorItem