diff options
Diffstat (limited to 'src/compiler/GF/Server.hs')
| -rw-r--r-- | src/compiler/GF/Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |