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