idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2025-01-07 08:18:12 +03:00
Code Issues Projects Releases Wiki Activity

Make logging lazy (logC)

Browse Source
This commit is contained in:
russoul 2020-10-03 14:17:45 +03:00
parent 273b71c632
commit 5061b9f84d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/TTImp/ProcessDef.idr
View File

@ -819,24 +819,24 @@ processDef opts nest env fc n_in cs_in
setUnboundImplicits autoimp
(lhstm, _) <- elabTerm n (InLHS mult) [] (MkNested []) []
(IBindHere fc PATTERN lhstm) Nothing
log "declare.def.impossible" 5 $ "Post elab: " ++ show !(toFullNames lhstm)
logC "declare.def.impossible" 5 $ ("Post elab: " ++) . show <$> toFullNames lhstm
defs <- get Ctxt
lhs <- normaliseHoles defs [] lhstm
log "declare.def.impossible" 5 $ "Normalised: " ++ show !(toFullNames lhs)
logC "declare.def.impossible" 5 $ ("Normalised: " ++) . show <$> toFullNames lhs
if !(hasEmptyPat defs [] lhs)
then do put Ctxt ctxt
log "declare.def.impossible" 3 $ "Impossible due to incompatible patterns"
log "declare.def.impossible" 3 "Impossible due to incompatible patterns"
pure Nothing
else do empty <- clearDefs ctxt
rtm <- closeEnv empty !(nf empty [] lhs)
put Ctxt ctxt
log "declare.def.impossible" 3 $ "Possible case: compatible patterns"
log "declare.def.impossible" 3 "Possible case: compatible patterns"
pure (Just rtm))
(\err => do defs <- get Ctxt
if not !(recoverableErr defs err)
then do log "declare.def.impossible" 3 $ "Impossible due to unrecoverable error"
then do log "declare.def.impossible" 3 "Impossible due to unrecoverable error"
pure Nothing
else do log "declare.def.impossible" 3 $ "Possible case: recoverable error"
else do log "declare.def.impossible" 3 "Possible case: recoverable error"
pure (Just tm))
where
closeEnv : Defs -> NF [] -> Core ClosedTerm