diff options
| author | hallgren <hallgren@chalmers.se> | 2015-03-11 15:56:06 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2015-03-11 15:56:06 +0000 |
| commit | 748ebae43306ba81f896bd02a88217f686859092 (patch) | |
| tree | 4be7219690b205ebd5b840ab8297f2ec3f3e071e | |
| parent | 1508fc764dc7fb5ef8556ed82653ff229e6dc27a (diff) | |
GF.Server: request logging: increase length limit from 100 500 chars per field
| -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 |