;;; Script that detects problematic github packages.
;;; To run, use something like this in the "fiasco" dir:
;;; ~/src/guix/pre-inst-env guile -L . main.scm

(use-modules (fiasco finder)
	     (fiasco fixer))

(define (main)
  ;; You may select a different results-dir by parameterizing it
  ;; differently below. More parameters available to configure can be
  ;; found in (fiasco finder).
  (parameterize ((results-dir (string-append (getenv "HOME")
					     "/src/guile-hacks/fiasco")))
    (find-problematic-packages)
    (fix-packages-hash)))

(main)