commit 9ba1f229828538ca235856fae85f6c76ef829308 · pyrox.dev/nixpkgs

+22

lib/debug.nix

···

       148
       148
        
         /* A combination of `traceVal` and `traceSeqN`. */

     

       149
       149
        
         traceValSeqN = traceValSeqNFn id;

     

       150
       150
        
       

     

       151
       151
       +
         /* Trace the input and output of a function `f` named `name`,

     

       152
       152
       +
         both down to `depth`.

     

       153
       153
       +
       

     

       154
       154
       +
         This is useful for adding around a function call,

     

       155
       155
       +
         to see the before/after of values as they are transformed.

     

       156
       156
       +
       

     

       157
       157
       +
            Example:

     

       158
       158
       +
              traceFnSeqN 2 "id" (x: x) { a.b.c = 3; }

     

       159
       159
       +
              trace: { fn = "id"; from = { a.b = {…}; }; to = { a.b = {…}; }; }

     

       160
       160
       +
              => { a.b.c = 3; }

     

       161
       161
       +
         */

     

       162
       162
       +
         traceFnSeqN = depth: name: f: v:

     

       163
       163
       +
           let res = f v;

     

       164
       164
       +
           in lib.traceSeqN

     

       165
       165
       +
               (depth + 1)

     

       166
       166
       +
               {

     

       167
       167
       +
                 fn = name;

     

       168
       168
       +
                 from = v;

     

       169
       169
       +
                 to = res;

     

       170
       170
       +
               }

     

       171
       171
       +
               res;

     

       172
       172
       +
       

     

       151
       173
        
       

     

       152
       174
        
         # -- TESTING --

     

       153
       175

+1 -1

lib/default.nix

···

       130
       130
        
             assertMsg assertOneOf;

     

       131
       131
        
           inherit (self.debug) addErrorContextToAttrs traceIf traceVal traceValFn

     

       132
       132
        
             traceXMLVal traceXMLValMarked traceSeq traceSeqN traceValSeq

     

       133
       133
       -
             traceValSeqFn traceValSeqN traceValSeqNFn traceShowVal

     

       133
       133
       +
             traceValSeqFn traceValSeqN traceValSeqNFn traceFnSeqN traceShowVal

     

       134
       134
        
             traceShowValMarked showVal traceCall traceCall2 traceCall3

     

       135
       135
        
             traceValIfNot runTests testAllTrue traceCallXml attrNamesToStr;

     

       136
       136
        
           inherit (self.misc) maybeEnv defaultMergeArg defaultMerge foldArgs