minor bugfix: confused two branches of if

This commit is contained in:
Ohad Kammar 2020-05-25 07:38:31 +01:00
parent 0de2f6dea8
commit 2e17a89ef0

View File

@ -93,8 +93,8 @@ holeData gam env fn args ty
= do hdata <- extractHoleData gam env fn args ty
pp <- getPPrint
pure $ if showImplicits pp
then record { context $= dropShadows } hdata
else hdata
then hdata
else record { context $= dropShadows } hdata
where
dropShadows : List HolePremise -> List HolePremise
dropShadows [] = []