refactor Main a whole lot
This commit is contained in:
parent
103f019dbd
commit
1f01cec322
3 changed files with 214 additions and 92 deletions
|
@ -70,7 +70,7 @@ public export
|
|||
data Id = I String Nat
|
||||
%runElab derive "Id" [Eq, Ord]
|
||||
|
||||
private
|
||||
export
|
||||
prettyId' : {opts : LayoutOpts} -> Id -> Doc opts
|
||||
prettyId' (I str 0) = text $ escId str
|
||||
prettyId' (I str k) = text $ escId "\{str}:\{show k}"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue