Update

xmobar.hs

 Config { font     = "xft:HackNerdFont:size=10:antialias=true,IPAPGothic:size=10:antialias=true"
        , bgColor  = "#002b36"
        , fgColor  = "#839496"
+       , iconRoot = "/home/kubat/.xmonad/xpm/"
        , position = Static { xpos = 0 , ypos = 0, width = 1920, height = 18 }
        , commands =  [ Run Cpu       ["-t", "<fc=#b58900>CPU</fc> <total>%", "-L","3","-H","50"] 50
                      , Run Memory    ["-t","<fc=#b58900>RAM</fc> <usedratio>%","-H","80","-L","10"] 50
@@ -24,5 +25,5 @@ Config { font     = "xft:HackNerdFont:size=10:antialias=true,IPAPGothic:size=10:
        , allDesktops    = False
        , sepChar        = "%"
        , alignSep       = "}{"
-       , template       = " %StdinReader% } %lektor% { %cpu% | %coretemp% | %memory% | <fc=#b58900>Vol</fc> %volume% | %vpn%%battery% | <fc=#b58900>%date%</fc> "
+       , template       = " <icon=haskell_20.xpm/> %StdinReader% } %lektor% { %cpu% | %coretemp% | %memory% | <fc=#b58900>Vol</fc> %volume% | %vpn%%battery% | <fc=#b58900>%date%</fc> "
 }

xmonad.hs

@@ -103,13 +103,13 @@ main = do
           , ppLayout            = xmobarColor       "#b58900" "" . (Prelude.map toLower)
           , ppSep               = " "
           , ppWsSep             = " "
-          , ppCurrent           = xmobarColor       "#268bd2" ""        . wrap "[" "]" . (Prelude.map toUpper)
+          , ppCurrent           = xmobarColor       "#268bd2" ""        . (\ x -> x) . (Prelude.map toUpper)
           , ppVisible           = xmobarColor       "grey"    ""        . (\ x -> x) . (Prelude.map toUpper)
           , ppHidden            = xmobarColor       "grey"    ""        . (\ x -> x) . (Prelude.map toUpper)
           , ppHiddenNoWindows   = xmobarColor       "#707070" ""        . (\ x -> x) . (Prelude.map toUpper)
           , ppUrgent            = xmobarColor       "white"   "#268bd2" . (\ x -> x) . (Prelude.map toUpper)
           , ppVisibleNoWindows  = Just (xmobarColor "#707070" ""        . (\ x -> x) . (Prelude.map toUpper))
-          , ppOrder             = \(ws:layout:title:extra) -> [ws, "(" ++ (replace "minimize " "" layout) ++ ")"]
+          , ppOrder             = \(ws:layout:title:extra) -> [ (replace "minimize " "" layout), ws ]
           }
     } `additionalKeys` myAdditionalKeys
 

xpm/haskell_20.xpm

+/* XPM */
+static char * haskell_20_xpm[] = {
+"20 20 2 1",
+" 	c None",
+".	c #839496",
+"                    ",
+"                    ",
+"                    ",
+".... ....           ",
+" .... ...           ",
+"  ... ....          ",
+"  .... ....         ",
+"   .... ... ........",
+"    ... .... .......",
+"    .... ....       ",
+"    .... ....       ",
+"    ... ...... .....",
+"   .... ....... ....",
+"  .... .... ...     ",
+"  ... ....  ....    ",
+" .... ...    ....   ",
+".... ....     ...   ",
+"                    ",
+"                    ",
+"                    "};