Add more debug logging for github review workflow

Part of #298.

main.rkt

@@ -143,11 +143,27 @@
               [result
                (in-option
                 (refactoring-rules-refactor rule-list stx #:comments comments #:analysis analysis))]
-              #:when (range-set-encloses? lines (refactoring-result-modified-line-range result)))
+              #:when (check-lines-enclose-refactoring-result lines result))
     (values (cons result results)
             (range-set-add modified-positions (refactoring-result-modified-range result)))))
 
 
+(define (check-lines-enclose-refactoring-result lines result)
+  (define modified-lines (refactoring-result-modified-line-range result))
+  (define enclosed? (range-set-encloses? lines modified-lines))
+  (unless enclosed?
+    (log-resyntax-info
+     (string-append "~a: suggestion discarded because it's outside the analyzed line range\n"
+                    "  analyzed lines: ~a\n"
+                    "  lines modified by result: ~a\n"
+                    "  result: ~a")
+     (refactoring-result-rule-name result)
+     lines
+     modified-lines
+     result))
+  enclosed?)
+
+
 (define (refactor! results)
   (define results-by-path
     (transduce results

private/file-group.rkt

@@ -36,6 +36,7 @@
          rebellion/collection/range-set
          rebellion/streaming/transducer
          resyntax/private/git
+         resyntax/private/logger
          resyntax/private/run-command)
 
 
@@ -105,6 +106,7 @@
        (parameterize ([current-directory repository-path])
          (define diff-lines (git-diff-modified-lines ref))
          (for/list ([(file lines) (in-hash diff-lines)])
+           (log-resyntax-debug "~a: modified lines: ~a" file lines)
            (file-portion file lines)))]))
   (transduce files (filtering rkt-file?) #:into into-list))