Xmonad config with gnome panel and programs which open and move to specific workspaces by default

xmonad.h

import XMonad
import XMonad.Config.Gnome
import qualified XMonad.StackSet as W

spawnToWorkspace :: String -> String -> X ()
spawnToWorkspace program workspace = do
    spawn program
    windows $ W.greedyView workspace



main = xmonad gnomeConfig
    {
    workspaces = ["1","2","3","4","5","6","7","8","9"] 
    , startupHook = startup
    , manageHook = composeAll
        [ manageHook gnomeConfig
        --, title =? "Xmonad - Microsoft OneNote (Product Activation Failed)" --> doShift "1"
        , className =? "ONENOTE.EXE" --> doShift "1"
        , className =? "Sublime_text" --> doShift "3"
        , title =? "Untitled - Google Chrome" --> doShift "2"
        , title =? "myterm" --> doShift "4"
        , title =? "Music" --> doShift "9"
        , className =? "update-notifier" --> doShift "8"
        ]
    }
    where
        startup = do
            spawn "google-chrome"
            spawn "/home/dan/onenote2.sh"
            spawn "subl"
            spawn "gnome-terminal -t myterm -e /home/dan/openscreen.sh"
            spawn "nautilus /home/dan/Music/"