2023-02-11 12:15:50 -05:00
|
|
|
module TypingImpls
|
|
|
|
|
|
|
|
|
|
import TAP
|
|
|
|
|
import public Quox.Typing
|
|
|
|
|
import public Quox.Pretty
|
2023-03-13 14:33:09 -04:00
|
|
|
import public TermImpls
|
2023-02-11 12:15:50 -05:00
|
|
|
|
2023-03-13 14:33:09 -04:00
|
|
|
import Derive.Prelude
|
|
|
|
|
%language ElabReflection
|
|
|
|
|
|
|
|
|
|
|
2023-04-01 13:16:43 -04:00
|
|
|
%runElab deriveIndexed "TyContext" [Show]
|
|
|
|
|
%runElab deriveIndexed "EqContext" [Show]
|
2023-04-15 09:13:01 -04:00
|
|
|
%runElab deriveIndexed "NameContexts" [Show]
|
2023-04-01 13:16:43 -04:00
|
|
|
%runElab derive "Error" [Show]
|
2023-02-22 01:45:10 -05:00
|
|
|
|
2023-02-11 12:15:50 -05:00
|
|
|
export
|
2023-04-01 13:16:43 -04:00
|
|
|
ToInfo Error where toInfo err = [("err", show $ prettyError True True err)]
|
