@@ -0,0 +1,9 @@
1+{-# LANGUAGE OverloadedStrings #-}
2+import Network.Wai
3+import Network.Wai.Handler.Warp
4+import Blaze.ByteString.Builder (fromByteString)
5+
6+main = run 3000 $ const $ return $ responseBuilder
7+ status200
8+ [("Content-Type", "text/plain")]
9+ $ fromByteString "PONG"