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

[ fix ] debugging printing

Browse Source
This commit is contained in:
Guillaume ALLAIS 2021-04-16 14:55:52 +01:00 committed by G. Allais
parent b68fa077af
commit 9f5cacf31e
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Core/UnifyState.idr
View File

@ -663,9 +663,7 @@ dumpHole' : {auto u : Ref UST UState} ->
dumpHole' lvl hole
= do ust <- get UST
defs <- get Ctxt
if keepLog lvl (logLevel $ session $ options defs)
then pure ()
else do
when (keepLog lvl (logLevel $ session $ options defs)) $ do
defs <- get Ctxt
case !(lookupCtxtExact (Resolved hole) (gamma defs)) of
Nothing => pure ()