Skip to content

Commit a06ac03

Browse files
committed
Remove debugging
1 parent 080ae94 commit a06ac03

File tree

1 file changed

+1
-6
lines changed
  • unison-runtime/src/Unison/Runtime

1 file changed

+1
-6
lines changed

unison-runtime/src/Unison/Runtime/MCode.hs

+1-6
Original file line numberDiff line numberDiff line change
@@ -69,7 +69,6 @@ import Data.Word (Word16, Word64)
6969
import GHC.Stack (HasCallStack)
7070
import Unison.ABT.Normalized (pattern TAbss)
7171
import Unison.ABT.Normalized qualified as ABT
72-
import Unison.Debug qualified as Debug
7372
import Unison.Prelude ((&))
7473
import Unison.Reference (Reference, showShort)
7574
import Unison.Referent (Referent)
@@ -1528,11 +1527,7 @@ collapseCases cd
15281527
& \case
15291528
[] -> (Nothing, mempty)
15301529
(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)
15361531

15371532
-- Emits code corresponding to an unboxed sum match.
15381533
-- The match is against a tag on the stack, and cases introduce

0 commit comments

Comments
 (0)