XMonad Issue

xmonad.errors

xmonad.hs:26:19:
    Couldn't match expected type `(k0, a0)'
                with actual type `[((KeyMask, KeySym), X ())]'
    In the expression:
      [((modMask .|. mask, key), f sc) |
         (key, sc) <- zip [xK_q, xK_w, xK_e] [0 .. ],
         (f, mask) <- [(viewScreen, 0), (sendToScreen, shiftMask)]]
    In the second argument of `($)', namely
      `[[((modMask .|. mask, key), f sc) |
           (key, sc) <- zip [xK_q, xK_w, ....] [0 .. ],
           (f, mask) <- [(viewScreen, 0), (sendToScreen, shiftMask)]]]'
    In the expression:
      M.fromList
      $ [[((modMask .|. mask, key), f sc) |
            (key, sc) <- zip [xK_q, xK_w, ....] [0 .. ],
            (f, mask) <- [(viewScreen, 0), (sendToScreen, shiftMask)]]]

xmonad.hs

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageHelpers
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Actions.PhysicalScreens
import qualified Data.Map as M
import System.IO

main = do
        xmonad $ defaultConfig {
                manageHook = composeOne [
                        isFullscreen -?> doFullFloat
                ],
                terminal = "urxvt",
                modMask = mod4Mask,
                keys = myKeys
        }

myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
        [
                  --
                  -- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
                  -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
                  --
                  [((modMask .|. mask, key), f sc)
                        | (key, sc) <- zip [xK_q, xK_w, xK_e] [0..]
                        , (f, mask) <- [(viewScreen, 0), (sendToScreen, shiftMask)]]
        ]