39 lines
1.1 KiB
Plaintext
39 lines
1.1 KiB
Plaintext
|
module Showable where
|
|||
|
|
|
|||
|
|
open import Data.String using (String; _++_)
|
|||
|
|
open import Data.Nat using (ℕ)
|
|||
|
|
open import Data.Nat.Show using () renaming (show to showNat)
|
|||
|
|
open import Data.Fin using (Fin)
|
|||
|
|
open import Data.Fin.Show using () renaming (show to showFin)
|
|||
|
|
open import Data.Product using (_×_; _,_)
|
|||
|
|
open import Data.Unit using (⊤; tt)
|
|||
|
|
|
|||
|
|
record Showable {a} (A : Set a) : Set a where
|
|||
|
|
field
|
|||
|
|
show : A → String
|
|||
|
|
|
|||
|
|
open Showable {{ ... }} public
|
|||
|
|
|
|||
|
|
instance
|
|||
|
|
showableString : Showable String
|
|||
|
|
showableString = record { show = λ s → "\"" ++ s ++ "\"" }
|
|||
|
|
|
|||
|
|
showableNat : Showable ℕ
|
|||
|
|
showableNat = record { show = showNat }
|
|||
|
|
|
|||
|
|
showableFin : ∀ {n : ℕ} → Showable (Fin n)
|
|||
|
|
showableFin = record { show = showFin }
|
|||
|
|
|
|||
|
|
showableProd : ∀ {a b} {A : Set a} {B : Set b}
|
|||
|
|
{{ showableA : Showable A }} {{ showableB : Showable B }} →
|
|||
|
|
Showable (A × B)
|
|||
|
|
showableProd {{ showableA }} {{ showableB }} = record
|
|||
|
|
{ show = λ (a , b) →
|
|||
|
|
"(" ++ show a ++
|
|||
|
|
", " ++ show b ++
|
|||
|
|
")"
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
showableUnit : Showable ⊤
|
|||
|
|
showableUnit = record { show = λ tt → "()" }
|