Towards web with Snap in Haskell