Permalink
Browse files

disable session management

  • Loading branch information...
1 parent 9cddaab commit a7c3ee9a1ce82062abf1a9fbd06084d74ae6ea09 @lbolla lbolla committed Sep 4, 2012
Showing with 4 additions and 2 deletions.
  1. +2 −1 bigtable/yesod.hs
  2. +2 −1 pong/yesod.hs
View
@@ -18,7 +18,8 @@ mkYesod "Pong"
#endif
/bigtable.html PongR GET
|]
-instance Yesod Pong
+instance Yesod Pong where
+ makeSessionBackend _ = return Nothing
getPongR = return $ RepHtml $ ContentBuilder table Nothing
View
@@ -10,7 +10,8 @@ mkYesod "Pong" [parseRoutes|
/ PongR GET
|]
-instance Yesod Pong
+instance Yesod Pong where
+ makeSessionBackend _ = return Nothing
getPongR = return $ RepPlain $ toContent ("PONG" :: ByteString)

0 comments on commit a7c3ee9

Please sign in to comment.