Xmonad Filter out any Workspace

myExtraWSs = ["0","NSP"]
myWorkspaces = map show [1..9] ++ myExtraWSs
--myWorkspaces = map show [1..9] ++ ["0","NSP"]
....
....
 , ((mod4Mask .|. shiftMask, xK_Up), windows . W.shift =<< findWorkspace getSortByIndexNoNSP Next EmptyWS 1) -- send window to next empty WS non NSP
...
...
where
  --getSortByIndexNoNSP = fmap ((. namedScratchpadFilterOutWorkspace) . (. filter (\(W.Workspace tag _ _) -> tag /= "0"))) getSortByIndex
-- the next line works; skips the provided WS
  getSortByIndexNoNSP = fmap (. filter (\(W.Workspace tag _ _) -> tag /= "0" && tag /= "NSP")) getSortByIndex
-- equivalent but using the list myExtraWSs
  getSortByIndexNoWSList = fmap (. filter (\(W.Workspace tag _ _) -> not (tag `elem` myExtraWSs))) getSortByIndex
...