Xmonad - loghook for mouse disable

--
-- Is there a more efficient/elegant way to do this?
--
-- Objective: To disable/enable the mouse cursor for specific windows
--

...
...
checkMouseDisable :: X ()
checkMouseDisable = do
    curTag <- gets (W.currentTag . windowset)
    when ( curTag == "1:main") $ spawn "xinput --disable 11"
    when ( curTag == "2:extra_terminals") $ spawn "xinput --disable 11"
    when ( curTag == "3:browser") $ spawn "xinput --disable 11"
    when ( curTag == "4") $ spawn "xinput --disable 11"
    when ( curTag == "5:mail") $ spawn "xinput --enable 11"
    when ( curTag == "6") $ spawn "xinput --disable 11"
    when ( curTag == "7") $ spawn "xinput --disable 11"
    when ( curTag == "8") $ spawn "xinput --disable 11"
    when ( curTag == "9:float") $ spawn "xinput --enable 11
...
...
myConfig = desktopConfig
            {
                ...
                ...
                , logHook = updatePointer (0.50, 0.50) (1, 1)
                    >> checkMouseDisable
            }