28 lines
625 B
Idris
28 lines
625 B
Idris
module Quox.Syntax.Builtin
|
||
|
||
import Derive.Prelude
|
||
import Quox.PrettyValExtra
|
||
import Quox.Pretty
|
||
import Quox.Syntax.Term
|
||
|
||
|
||
%default total
|
||
%language ElabReflection
|
||
|
||
public export
|
||
data Builtin
|
||
= Main
|
||
%runElab derive "Builtin" [Eq, Ord, Show, PrettyVal]
|
||
|
||
public export
|
||
builtinDesc : Builtin -> String
|
||
builtinDesc Main = "a function declared as #[main]"
|
||
|
||
public export
|
||
builtinTypeDoc : {opts : LayoutOpts} -> Builtin -> Eff Pretty (Doc opts)
|
||
builtinTypeDoc Main =
|
||
prettyTerm [<] [<] $
|
||
Pi One (IOState noLoc)
|
||
(SN $ Sig (Enum (fromList [!(ifUnicode "𝑎" "a")]) noLoc)
|
||
(SN (IOState noLoc)) noLoc) noLoc
|