namespaces work now
This commit is contained in:
parent
4db373a84f
commit
4578b30c79
9 changed files with 291 additions and 252 deletions
|
@ -28,7 +28,7 @@ ToInfo Error' where
|
|||
M = Eff [Except Error', DefsReader]
|
||||
|
||||
inj : TC a -> M a
|
||||
inj = rethrow . mapFst TCError <=< lift . runExcept
|
||||
inj = rethrow . mapFst TCError <=< lift . runExcept . runReaderAt NS [<]
|
||||
|
||||
|
||||
reflTy : Term d n
|
||||
|
@ -90,11 +90,11 @@ parameters (label : String) (act : Lazy (M ()))
|
|||
{default defGlobals globals : Definitions}
|
||||
testTC : Test
|
||||
testTC = test label {e = Error', a = ()} $
|
||||
extract $ runExcept $ runReader globals act
|
||||
extract $ runExcept $ runReaderAt DEFS globals act
|
||||
|
||||
testTCFail : Test
|
||||
testTCFail = testThrows label (const True) $
|
||||
(extract $ runExcept $ runReader globals act) $> "()"
|
||||
(extract $ runExcept $ runReaderAt DEFS globals act) $> "()"
|
||||
|
||||
|
||||
anys : {n : Nat} -> QContext n
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue