octane-0.3.0: library/Octane/Type/Primitive/Boolean.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}

module Octane.Type.Primitive.Boolean (Boolean(..)) where

import Octane.Core

-- | A boolean value, stored in the first bit of a byte.
newtype Boolean = Boolean
    { getBoolean :: Bool
    } deriving (Eq, Generic, NFData, Show)

instance Binary Boolean where
    get = do
        boolean <- getWord8
        if boolean > 1
        then fail "out of bounds"
        else boolean & fromIntegral & toEnum & Boolean & return

    put (Boolean boolean) = do
        boolean & fromEnum & fromIntegral & putWord8