WIP: quantity polymorphism #44
1 changed files with 4 additions and 0 deletions
|
@ -13,6 +13,10 @@ data No : Pred Bool where
|
||||||
|
|
||||||
export Uninhabited (No True) where uninhabited _ impossible
|
export Uninhabited (No True) where uninhabited _ impossible
|
||||||
|
|
||||||
|
export Eq (No p) where _ == _ = True
|
||||||
|
export Ord (No p) where compare _ _ = EQ
|
||||||
|
export Show (No p) where showPrec _ _ = "Ah"
|
||||||
|
|
||||||
export %inline
|
export %inline
|
||||||
soNo : So b -> No b -> Void
|
soNo : So b -> No b -> Void
|
||||||
soNo Oh Ah impossible
|
soNo Oh Ah impossible
|
||||||
|
|
Loading…
Reference in a new issue