module BishBosh.Colour.LogicalColourOfSquare(
LogicalColourOfSquare(),
black,
white,
isBlack
) where
import qualified BishBosh.Colour.LogicalColour as Colour.LogicalColour
newtype LogicalColourOfSquare = MkLogicalColourOfSquare {
LogicalColourOfSquare -> LogicalColour
deconstruct :: Colour.LogicalColour.LogicalColour
} deriving (LogicalColourOfSquare -> LogicalColourOfSquare -> Bool
(LogicalColourOfSquare -> LogicalColourOfSquare -> Bool)
-> (LogicalColourOfSquare -> LogicalColourOfSquare -> Bool)
-> Eq LogicalColourOfSquare
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LogicalColourOfSquare -> LogicalColourOfSquare -> Bool
$c/= :: LogicalColourOfSquare -> LogicalColourOfSquare -> Bool
== :: LogicalColourOfSquare -> LogicalColourOfSquare -> Bool
$c== :: LogicalColourOfSquare -> LogicalColourOfSquare -> Bool
Eq, LogicalColourOfSquare
LogicalColourOfSquare
-> LogicalColourOfSquare -> Bounded LogicalColourOfSquare
forall a. a -> a -> Bounded a
maxBound :: LogicalColourOfSquare
$cmaxBound :: LogicalColourOfSquare
minBound :: LogicalColourOfSquare
$cminBound :: LogicalColourOfSquare
Bounded)
black :: LogicalColourOfSquare
black :: LogicalColourOfSquare
black = LogicalColour -> LogicalColourOfSquare
MkLogicalColourOfSquare LogicalColour
Colour.LogicalColour.Black
white :: LogicalColourOfSquare
white :: LogicalColourOfSquare
white = LogicalColour -> LogicalColourOfSquare
MkLogicalColourOfSquare LogicalColour
Colour.LogicalColour.White
isBlack :: LogicalColourOfSquare -> Bool
isBlack :: LogicalColourOfSquare -> Bool
isBlack MkLogicalColourOfSquare { deconstruct :: LogicalColourOfSquare -> LogicalColour
deconstruct = LogicalColour
logicalColour } = LogicalColour -> Bool
Colour.LogicalColour.isBlack LogicalColour
logicalColour