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

%inline, etc

Browse source
This commit is contained in:
rhiannon morris 2022-04-09 18:55:08 +02:00
parent 46b29b8e72
commit 13b173322b
1 changed files with 8 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/Quox/Pretty.idr
View file

@ -40,8 +40,8 @@ hlRepr Qty = 6
hlRepr Free = 7 hlRepr Free = 7
hlRepr Syntax = 8 hlRepr Syntax = 8
export Eq HL where (==) = (==) `on` hlRepr export %inline Eq HL where (==) = (==) `on` hlRepr
export Ord HL where compare = compare `on` hlRepr export %inline Ord HL where compare = compare `on` hlRepr
public export public export
@ -52,7 +52,7 @@ data PPrec
-- ... -- ...
| App -- term/dimension application | App -- term/dimension application
| SApp -- substitution application | SApp -- substitution application
| Arg | Arg -- argument to nonfix function
private PrecRepr : Type private PrecRepr : Type
PrecRepr = Nat PrecRepr = Nat
@ -66,8 +66,8 @@ precRepr App = 98
precRepr SApp = 99 precRepr SApp = 99
precRepr Arg = 100 precRepr Arg = 100
export Eq PPrec where (==) = (==) `on` precRepr export %inline Eq PPrec where (==) = (==) `on` precRepr
export Ord PPrec where compare = compare `on` precRepr export %inline Ord PPrec where compare = compare `on` precRepr
export %inline export %inline
@ -128,7 +128,7 @@ record PrettyEnv where
||| surrounding precedence level ||| surrounding precedence level
prec : PPrec prec : PPrec
public export %inline HasEnv : (Type -> Type) -> Type public export HasEnv : (Type -> Type) -> Type
HasEnv = MonadReader PrettyEnv HasEnv = MonadReader PrettyEnv
export %inline export %inline
@ -147,9 +147,8 @@ public export data BinderSort = T | D
export %inline export %inline
under : HasEnv m => BinderSort -> Name -> m a -> m a under : HasEnv m => BinderSort -> Name -> m a -> m a
under s x = local $ under T x = local {prec := Outer, tnames $= (x ::)}
{prec := Outer} . under D x = local {prec := Outer, dnames $= (x ::)}
(case s of T => {tnames $= (x ::)}; D => {dnames $= (x ::)})
public export public export