quox/tests/TypingImpls.idr

34 lines
704 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
2024-04-04 13:23:08 -04:00
runEff act $ with Union.(::)
2023-08-25 12:09:06 -04:00
[handleExcept (\e => stLeft e),
handleReaderConst defs,
handleStateSTRef !(newSTRef' 0),
handleLogDiscardST !(newSTRef' 0)]
2023-08-25 12:09:06 -04:00
export
runTC : Definitions -> Eff TC a -> Either Error a
runTC = runEqual