haskell chat server backed by redis