From 5bfaf10de597af504e6d2784309e533b09a6451c Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Fri, 28 Aug 2015 13:59:43 +0000
Subject: Comment out some dead code found with -fwarn-unused-binds

Also fixed some warnings and tightened some imports
---
 src/compiler/GF/Server.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/compiler/GF/Server.hs')

diff --git a/src/compiler/GF/Server.hs b/src/compiler/GF/Server.hs
index c2b163d44..3a193cc33 100644
--- a/src/compiler/GF/Server.hs
+++ b/src/compiler/GF/Server.hs
@@ -142,7 +142,7 @@ handle logLn documentroot state0 cache execute1 stateVar
       _ -> return (resp501 $ "method "++method)
   where
     logPutStrLn msg = liftIO $ logLn msg
-    debug msg = logPutStrLn msg
+--  debug msg = logPutStrLn msg
 
     addDate m =
       do t <- getCurrentTime
@@ -371,7 +371,7 @@ ok200' t     = Response 200 [t,xo]
 json200 x    = json200' id x
 json200' f   = ok200' jsonUTF8 . encodeString . f . encode
 jsonp200' f  = ok200' jsonpUTF8 . encodeString . f . encode
-html200      = ok200' htmlUTF8 . encodeString
+--html200    = ok200' htmlUTF8 . encodeString
 resp204      = Response 204 [xo] "" -- no content
 resp301 url  = Response 301 [plain,xo,location url] $
                "Moved permanently to "++url
@@ -389,7 +389,7 @@ plain = ct "text/plain" ""
 plainUTF8 = ct "text/plain" csutf8
 jsonUTF8 = ct "application/json" csutf8 -- http://www.ietf.org/rfc/rfc4627.txt
 jsonpUTF8 = ct "application/javascript" csutf8
-htmlUTF8 = ct "text/html" csutf8
+--htmlUTF8 = ct "text/html" csutf8
 
 ct t cs = ("Content-Type",t++cs)
 csutf8 = "; charset=UTF-8"
-- 
cgit v1.2.3