GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

GF.Server: request logging: increase length limit from 100 500 chars per field

Browse Source
This commit is contained in:
hallgren
2015-03-11 15:56:06 +00:00
parent 1508fc764d
commit 748ebae433
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Server.hs
View File

@@ -151,7 +151,7 @@ handle logLn documentroot state0 cache execute1 stateVar
return r{resHeaders=("Date",fmt):resHeaders r} return r{resHeaders=("Date",fmt):resHeaders r}
normal_request qs = 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) let stateful m = modifyMVar stateVar $ \ s -> run m (qs,s)
-- stateful ensures mutual exclusion, so you can use/change the cwd -- stateful ensures mutual exclusion, so you can use/change the cwd
case upath of case upath of