xmonad.hs:29:30:
    Couldn't match expected type `Bool' against inferred type `m a'
    In the first argument of `whenM', namely `io'
    In the `startupHook' field of a record
    In the first argument of `additionalKeys', namely
        `defaultConfig
           {startupHook = whenM io isInitialStartup initialStartupHook,
            manageHook = myManageHook <+> manageHook defaultConfig,
            layoutHook = avoidStruts $ layoutHook defaultConfig,
            logHook = dynamicLogWithPP
                        (xmobarPP
                           {ppOutput = hPutStrLn xmproc,
                            ppTitle = xmobarColor "green" "" . shorten 50}),
            modMask = mod4Mask}'