File tree 1 file changed +1
-6
lines changed
unison-runtime/src/Unison/Runtime
1 file changed +1
-6
lines changed Original file line number Diff line number Diff line change @@ -69,7 +69,6 @@ import Data.Word (Word16, Word64)
69
69
import GHC.Stack (HasCallStack )
70
70
import Unison.ABT.Normalized (pattern TAbss )
71
71
import Unison.ABT.Normalized qualified as ABT
72
- import Unison.Debug qualified as Debug
73
72
import Unison.Prelude ((&) )
74
73
import Unison.Reference (Reference , showShort )
75
74
import Unison.Referent (Referent )
@@ -1528,11 +1527,7 @@ collapseCases cd
1528
1527
& \ case
1529
1528
[] -> (Nothing , mempty )
1530
1529
(d, ks) : _rest -> (Just d, EC. withoutKeys cd ks)
1531
- in case def of
1532
- Nothing -> (def, new)
1533
- Just {}
1534
- | EC. mapSize cd > 20 -> Debug. debug Debug. Temp (" Was " <> show (EC. mapSize cd) <> " now " <> show (EC. mapSize new)) $ (def, new)
1535
- | otherwise -> (def, new)
1530
+ in (def, new)
1536
1531
1537
1532
-- Emits code corresponding to an unboxed sum match.
1538
1533
-- The match is against a tag on the stack, and cases introduce
You can’t perform that action at this time.
0 commit comments