qudb-0.0.1: Database/QUDB/EntityTypes.hs

module Database.QUDB.EntityTypes (
  Type(String, Int),
  Value(IntValue, StringValue),
  ) where

-- |Types of values which can be stored in columns.
data Type = Int | String deriving (Read, Show, Eq)

-- |Wrapped value of one of types from Type.
data Value = IntValue Int
           | StringValue String
           deriving (Show, Read, Ord, Eq)