quox/tests/TypingImpls.idr

33 lines
654 B
Idris
Raw Normal View History

2023-02-11 12:15:50 -05:00
module TypingImpls
import TAP
import public Quox.Typing
import public Quox.Pretty
2023-08-25 12:09:06 -04:00
import Quox.Equal
import Quox.Typechecker
2023-09-18 18:41:47 -04:00
import Control.Monad.ST.Extra
2023-05-14 13:58:46 -04:00
import PrettyExtra
2023-02-11 12:15:50 -05:00
2023-03-13 14:33:09 -04:00
import Derive.Prelude
%language ElabReflection
2023-02-11 12:15:50 -05:00
export
2023-05-14 13:58:46 -04:00
ToInfo Error where
toInfo err =
let str = render (Opts 60) $ runPrettyDef $ prettyError True err in
[("err", str)]
2023-08-25 12:09:06 -04:00
export
runEqual : Definitions -> Eff Equal a -> Either Error a
runEqual defs act = runSTErr $ do
runEff act
[handleExcept (\e => stLeft e),
handleReaderConst defs,
2023-09-18 18:41:47 -04:00
handleStateSTRef !(liftST $ newSTRef 0)]
2023-08-25 12:09:06 -04:00
export
runTC : Definitions -> Eff TC a -> Either Error a
runTC = runEqual