rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

Show for Name and Dim

Browse source
This commit is contained in:
rhiannon morris 2022-05-07 00:57:23 +02:00
parent 804f1e3638
commit 715a9fe8f9
2 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/Quox/Syntax/Dim.idr
View file

@ -37,6 +37,11 @@ drepr (B x) = Right x
export Eq (Dim n) where (==) = (==) `on` drepr
export Ord (Dim n) where compare = compare `on` drepr
export
Show (Dim n) where
show (K k) = showCon App "K" $ show k
show (B i) = showCon App "B" $ show i
export
PrettyHL DimConst where
prettyM Zero = hl Dim <$> ifUnicode "𝟬" "0"