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