changeset 2:4f374ebe6b99

fix
author Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
date Tue, 02 Jul 2013 18:31:35 +0900
parents 616d3e6ce483
children 1363ce4186a7
files App.hs
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/App.hs	Mon Jun 17 18:09:21 2013 +0900
+++ b/App.hs	Tue Jul 02 18:31:35 2013 +0900
@@ -16,6 +16,7 @@
       function = routes $ pathInfo request
       query    = queryString request
     (params, _) <- parseRequestBody lbsBackEnd request
+    liftIO $ print params
     lift $ function jungle query params
 
 main = do