1 2 3 4 5 6 7 8
module SDLClient.Blob where data SpriteType | OneSprite | RugSprite | FenceSprite | BlobSprite deriving (Eq,Show)