Remove generic and flat instances

src/Sound/Data.hs

@@ -5,7 +5,6 @@
 
 module Sound.Data where
 
-import Flat
 import LinearHelp ()
 import Control.Lens
 import Data.Aeson
@@ -29,10 +28,10 @@ data PlayStatus
     | ToStart
     | ToContinueStart
     | ToStop
-    deriving (Eq, Ord, Show, Read, Generic)
+    deriving (Eq, Ord, Show, Read) --, Generic)
 
 newtype SoundID = SoundID {_getSoundID :: Int}
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 newtype SoundData = SoundData
     { _loadedChunks :: IM.IntMap Mix.Chunk