From 9efbe0e47adeec1d7d7de4079f7cc3a295b59731 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Wed, 11 Mar 2015 15:56:06 +0000
Subject: [PATCH] GF.Server: request logging: increase length limit from 100
 500 chars per field

---
 src/compiler/GF/Server.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/GF/Server.hs b/src/compiler/GF/Server.hs
index 6036bfd38..346f1c6be 100644
--- a/src/compiler/GF/Server.hs
+++ b/src/compiler/GF/Server.hs
@@ -151,7 +151,7 @@ handle logLn documentroot state0 cache execute1 stateVar
          return r{resHeaders=("Date",fmt):resHeaders r}
 
     normal_request qs =
-      do logPutStrLn $ method++" "++upath++" "++show (mapSnd (take 100.fst) qs)
+      do logPutStrLn $ method++" "++upath++" "++show (mapSnd (take 500.fst) qs)
          let stateful m = modifyMVar stateVar $ \ s -> run m (qs,s)
           -- stateful ensures mutual exclusion, so you can use/change the cwd
          case upath of