diff --git a/haskell/xmonad/xmonad.hs b/haskell/xmonad/xmonad.hs
index 3e4f439..4fed0fe 100644
--- a/haskell/xmonad/xmonad.hs
+++ b/haskell/xmonad/xmonad.hs
@@ -44,7 +44,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) =
       ((modm, xK_s), spawn "flameshot gui -c -p $HOME/Pictures/screenshots"),
       ((modm, xK_a), spawn "flameshot screen -c -p $HOME/Pictures/screenshots"),
       ((modm, xK_t), spawn "ocr-screenshot.sh"),
-      ((modm .|. shiftMask, xK_t), spawn "DEVICE=\"MELF0410:00 1FD2:7007\"; if [ $(xinput list-props \"$DEVICE\" | awk '/^\\tDevice Enabled \\([0-9]+\\):\\t[01]/ {print $NF}') = \"1\" ]; then xinput disable \"$DEVICE\"; else xinput enable \"$DEVICE\"; fi"),
+      ((modm .|. shiftMask, xK_t), spawn "DEVICE=\"bcm5974\"; if [ $(xinput list-props \"$DEVICE\" | awk '/^\\tDevice Enabled \\([0-9]+\\):\\t[01]/ {print $NF}') = \"1\" ]; then xinput disable \"$DEVICE\"; else xinput enable \"$DEVICE\"; fi"),
       -- Push window back into tiling
       ((modm .|. shiftMask, xK_space), withFocused $ windows . W.sink),
       -- Resize viewed windows to the correct size