changeset 8:3f47943ccc5f

fix port number 3000 to 8080
author Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
date Fri, 07 Feb 2014 04:53:30 +0900
parents 24ef053a4dc5
children 6a406b315240
files App.hs
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/App.hs	Mon Jan 27 03:03:07 2014 +0900
+++ b/App.hs	Fri Feb 07 04:53:30 2014 +0900
@@ -15,7 +15,7 @@
       query    = queryString request
 
 main = do
-    putStrLn $ "Listening on port " ++ show 3000
+    putStrLn $ "Listening on port " ++ show 8080
     jungle <- createJungle
     createTree jungle treeName
-    run 3000 $ application jungle
+    run 8080 $ application jungle