{-# LANGUAGE CPP, GeneralizedNewtypeDeriving #-}
module BishBosh.Type.Count(
NCoordinates,
NDecimalDigits,
NDirections,
NGames,
NLogicalColours,
NMoves,
NPieces,
NPlies,
NPositions,
NRanks,
NSeconds,
) where
#ifdef USE_NEWTYPE_WRAPPERS
import qualified Control.DeepSeq
import qualified Data.Array.IArray
import qualified Text.XML.HXT.Arrow.Pickle as HXT
#endif
type Base = Int
#ifdef USE_NEWTYPE_WRAPPERS
newtype NCoordinates = MkNCoordinates Base deriving (Enum, Eq, Integral, Num, Ord, Real)
instance Show NCoordinates where
showsPrec precedence (MkNCoordinates n) = showsPrec precedence n
#else
type NCoordinates = Base
#endif
#ifdef USE_NEWTYPE_WRAPPERS
newtype NDecimalDigits = MkNDecimalDigits Base deriving (Control.DeepSeq.NFData, Enum, Eq, HXT.XmlPickler, Integral, Num, Ord, Real)
instance Show NDecimalDigits where
showsPrec precedence (MkNDecimalDigits n) = showsPrec precedence n
#else
type NDecimalDigits = Base
#endif
#ifdef USE_NEWTYPE_WRAPPERS
newtype NDirections = MkNDirections Base deriving (Enum, Eq, Integral, Num, Ord, Real)
#else
type NDirections = Base
#endif
#ifdef USE_NEWTYPE_WRAPPERS
newtype NGames = MkNGames Base deriving (Control.DeepSeq.NFData, Enum, Eq, HXT.XmlPickler, Integral, Num, Ord, Real)
instance Show NGames where
showsPrec precedence (MkNGames n) = showsPrec precedence n
#else
type NGames = Base
#endif
#ifdef USE_NEWTYPE_WRAPPERS
newtype NLogicalColours = MkNLogicalColours Base deriving (Enum, Eq, Integral, Num, Ord, Real)
instance Show NLogicalColours where
showsPrec precedence (MkNLogicalColours n) = showsPrec precedence n
#else
type NLogicalColours = Base
#endif
#ifdef USE_NEWTYPE_WRAPPERS
newtype NMoves = MkNMoves Base deriving (Control.DeepSeq.NFData, Enum, Eq, HXT.XmlPickler, Integral, Num, Ord, Real)
instance Show NMoves where
showsPrec precedence (MkNMoves n) = showsPrec precedence n
#else
type NMoves = Base
#endif
#ifdef USE_NEWTYPE_WRAPPERS
newtype NPieces = MkNPieces Base deriving (Control.DeepSeq.NFData, Data.Array.IArray.Ix, Enum, Eq, Integral, Num, Ord, Real)
instance Show NPieces where
showsPrec precedence (MkNPieces n) = showsPrec precedence n
#else
type NPieces = Base
#endif
#ifdef USE_NEWTYPE_WRAPPERS
newtype NPlies = MkNPlies Base deriving (Control.DeepSeq.NFData, Enum, Eq, HXT.XmlPickler, Integral, Num, Ord, Read, Real)
instance Show NPlies where
showsPrec precedence (MkNPlies n) = showsPrec precedence n
#else
type NPlies = Base
#endif
#ifdef USE_NEWTYPE_WRAPPERS
newtype NPositions = MkNPositions Base deriving (Control.DeepSeq.NFData, Enum, Eq, Integral, Num, Ord, Real)
instance Show NPositions where
showsPrec precedence (MkNPositions n) = showsPrec precedence n
#else
type NPositions = Base
#endif
#ifdef USE_NEWTYPE_WRAPPERS
newtype NRanks = MkNRanks Base deriving (Enum, Eq, Integral, Num, Ord, Real)
#else
type NRanks = Base
#endif
#ifdef USE_NEWTYPE_WRAPPERS
newtype NSeconds = MkNSeconds Base deriving (Enum, Eq, Integral, Num, Ord, Real)
instance Show NSeconds where
showsPrec precedence (MkNSeconds n) = showsPrec precedence n
#else
type NSeconds = Base
#endif