Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
cloogle.org
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Cloogle
cloogle.org
Commits
fce85599
Verified
Commit
fce85599
authored
Mar 11, 2017
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Clean up backend logger
parent
e15371ad
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
12 deletions
+11
-12
backend/CloogleServer.icl
backend/CloogleServer.icl
+11
-12
No files found.
backend/CloogleServer.icl
View file @
fce85599
...
...
@@ -478,7 +478,7 @@ log msg mem w
#
(
mem
,
w
)
=
updateMemory
msg
mem
w
|
not
needslog
=
(
Just
mem
,
w
)
#
(
io
,
w
)
=
stdio
w
#
io
=
io
<<<
msgToString
msg
mem
<<<
"
\n
"
#
io
=
io
<<<
toString
(
toJSON
$
makeLogEntry
msg
mem
)
<<<
"
\n
"
=
(
Just
mem
,
snd
(
fclose
io
w
))
where
needslog
=
case
msg
of
(
Sent
_
_)
=
True
;
_
=
False
...
...
@@ -493,14 +493,13 @@ where
=
({
s
&
mem_time_end
=
t
},
w
)
updateMemory
_
s
w
=
(
s
,
w
)
msgToString
::
LogMessage`
LogMemory
->
String
msgToString
(
Sent
response
ck
)
mem
=
toString
$
toJSON
{
ip
=
toString
mem
.
mem_ip
,
time_start
=
(
toString
mem
.
mem_time_start
,
toInt
$
mkTime
mem
.
mem_time_start
)
,
time_end
=
(
toString
mem
.
mem_time_end
,
toInt
$
mkTime
mem
.
mem_time_end
)
,
request
=
mem
.
mem_request
,
cachekey
=
ck
,
response_code
=
response
.
return
,
results
=
length
response
.
data
}
makeLogEntry
::
LogMessage`
LogMemory
->
LogEntry
makeLogEntry
(
Sent
response
ck
)
mem
=
{
ip
=
toString
mem
.
mem_ip
,
time_start
=
(
toString
mem
.
mem_time_start
,
toInt
$
mkTime
mem
.
mem_time_start
)
,
time_end
=
(
toString
mem
.
mem_time_end
,
toInt
$
mkTime
mem
.
mem_time_end
)
,
request
=
mem
.
mem_request
,
cachekey
=
ck
,
response_code
=
response
.
return
,
results
=
length
response
.
data
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment