Port of dwmstatus from C into Haskell