------------------------------------------------------------------------
-- The Agda standard library
--
-- Showing booleans
------------------------------------------------------------------------
 
{-# OPTIONS --cubical-compatible --safe #-}
 
module Data.Bool.Show where
 
open import Data.Bool.Base using (Bool; false; true)
open import Data.Char.Base using (Char)
open import Data.String.Base using (String)
 
show : Bool → String
show true  = "true"
show false = "false"
 
showBit : Bool → Char
showBit true = '1'
showBit false = '0'