misc system ui in haskell