summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-01-09 23:59:07 +0100
committerLudovic Courtès <ludo@gnu.org>2014-01-24 00:01:49 +0100
commit5674a3fdb6b4b0f744e2339167d415d8a7a265a0 (patch)
treebc10575c1ea79ac0070284d8be4880a833bd4bbb
parent59f734f351ee1703dca3e7e01150b52517d48849 (diff)
downloadguix-5674a3fdb6b4b0f744e2339167d415d8a7a265a0.tar.gz
store: Add comments for the %stderr constants.
* guix/store.scm (process-stderr): Add comments for the various
  constants, to help when stracing.
-rw-r--r--guix/store.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/store.scm b/guix/store.scm
index 1012480b39..8ad32b2fd5 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -360,11 +360,11 @@ encoding conversion errors."
     (nix-server-socket server))
 
   ;; magic cookies from worker-protocol.hh
-  (define %stderr-next  #x6f6c6d67)
-  (define %stderr-read  #x64617461)               ; data needed from source
-  (define %stderr-write #x64617416)               ; data for sink
-  (define %stderr-last  #x616c7473)
-  (define %stderr-error #x63787470)
+  (define %stderr-next  #x6f6c6d67)          ; "olmg", build log
+  (define %stderr-read  #x64617461)          ; "data", data needed from source
+  (define %stderr-write #x64617416)          ; "dat\x16", data for sink
+  (define %stderr-last  #x616c7473)          ; "alts", we're done
+  (define %stderr-error #x63787470)          ; "cxtp", error reporting
 
   (let ((k (read-int p)))
     (cond ((= k %stderr-write)