xmonad Add isPrefixOf

myManageHook ::  ManageHook
myManageHook = composeAll . concat $
    [
      [ isDialog --> doCenterFloat ]
    , [ isFullscreen --> doFullFloat ]
    , [(className =? c <||> title =? c <||> resource =? c) --> doIgnore | c <- bars ]
    , [(className =? c <||> title =? c <||> resource =? c) --> doFloat | c <- float ]
...
...
    , [ fmap (c `isPrefixOf`) className <||> fmap (c `isPrefixOf`) title <||> fmap (c `isPrefixOf`) resource  --> doShift (myWorkspaces !! 3) | c <- ws4 ] -- iv
...
...
    , [(className =? c <||> title =? c <||> resource =? c) --> doShift "NSP" | c <- nsp ] -- nsp
    , [role =? c --> doFloat | c <- im ] -- place roles on im
   ]
   where
     bars    = ["dzen2","desktop_window"]
     float   = ["feh"]
     ws4     = ["xfreerdp","rdesktop"] -- any window client that begins with these strings will shift to WS iv
     nsp     = ["nothing"]
     im      = ["nothing"]
     role    = stringProperty "WM_WINDOW_ROLE" -- example