Primitive server in haskell