Add debug prints

greghendershott · Oct 14, 2016 · 3a66954 · 3a66954
1 parent 81a3fa0
commit 3a66954
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/frog/responsive-images.rkt b/frog/responsive-images.rkt
@@ -29,7 +29,10 @@
 (define (image-width path)
   (string->number
    (with-output-to-string
-     (λ () (system* identify "-format" "%w" path)))))
+     (λ ()
+       (eprintf "identify=~a path=~a\n" identify path)
+       (system* identify "-format" "%w" path)))
+   ))
 
 (module+ test
   (when magick-available?