Wrong output from ghci debugger with unboxed tuple

Given

{-# LANGUAGE UnboxedTuples, UnliftedNewtypes, DataKinds, MagicHash #-}
module T24306 where

import GHC.Exts

newtype A = MkA (# #)
data T = T Int# A Int#

x = T 1# (MkA (# #)) 2#

If I ask ghci to :force x, I get x = T 1 <A> 1. The last 1 should be 2. Patch incoming.

To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information