From ffcbcb449e22d42c25182aea9646a607ab2a5493 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 17 Mar 2013 12:48:11 +0200
Subject: [PATCH] Added pong.hs

---
 yesod-core/attic/pong.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 yesod-core/attic/pong.hs

diff --git a/yesod-core/attic/pong.hs b/yesod-core/attic/pong.hs
new file mode 100644
index 00000000..0423e49b
--- /dev/null
+++ b/yesod-core/attic/pong.hs
@@ -0,0 +1,15 @@
+{-# LANGUAGE TemplateHaskell, QuasiQuotes, TypeFamilies #-}
+import Yesod.Core
+import Network.Wai.Handler.Warp
+
+data Pong = Pong
+
+mkYesod "Pong" [parseRoutes|
+/ HomeR GET
+|]
+
+instance Yesod Pong
+
+getHomeR = liftHandlerT $ return "PONG"
+
+main = warp 3000 Pong