{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Dodge.Data.SaveSlot where
import Control.Lens

data SaveSlot
    = QuicksaveSlot
    | LevelStartSlot Int
    | SaveSlotNum Int
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

makeLenses ''SaveSlot