invertible-0.1: Data/Invertible/Bool.hs

-- |
-- Bidirectional version of "Data.Bool".
{-# LANGUAGE Safe #-}
module Data.Invertible.Bool
  ( not
  ) where

import Prelude hiding (not)
import qualified Data.Bool as B

import Data.Invertible.Bijection
import Data.Invertible.Internal

-- |Boolean 'B.not'.
not :: Bool <-> Bool
not = involution B.not