module Database.Persist.Audit.Parser.Types where
import Data.Text (Text)
data MigrationOnlyAndSafeToRemoveOption = MigrationOnly
| SafeToRemove
deriving (Eq,Read,Show)
data EntityFieldLastItem = FieldDefault Text
| FieldSqlRow Text
| FieldSqlType Text
| FieldMaxLen Int
deriving (Read,Show)
instance Eq EntityFieldLastItem where
(FieldDefault _) == (FieldDefault _) = True
(FieldSqlRow _) == (FieldSqlRow _) = True
(FieldSqlType _) == (FieldSqlType _) = True
(FieldMaxLen _) == (FieldMaxLen _) = True
_ == _ = False