[XMonad] Bump all versions

dotfiles/config/xmonad/xmonad.hs

@@ -414,14 +414,15 @@ getEWMHClasses w = do
   mValue <- fmap (UTF8.decode . map fromIntegral) <$> xGetWindowProperty8 atom w
   pure $ filter (not . null) $ splitOn "\NUL" $ join $ maybeToList mValue
 
+myDecorateName :: WindowSpace -> Window -> X String
 myDecorateName ws w = do
   name <- show <$> getName w
   classes <- getEWMHClasses w
   classTitle <- getClass w
-  workspaceToName <- getWorkspaceNames
+  workspaceToName <- getWorkspaceNames'
   let iconName = fromMaybe (map toLower $ head classes) $ lookupIconFromClasses classes
       entryString = printf "%-20s%-40s %+30s in %s \0icon\x1f%s"
-                    classTitle (take 40 name) " " (workspaceToName (W.tag ws)) iconName
+                    classTitle (take 40 name) " " (fromMaybe "" $ workspaceToName (W.tag ws)) iconName
   return entryString
 
 data ChromeInfo = ChromeInfo