(zilch planner): drop

Turns out this idea was kind of a dead end.

Change-Id: Id90b2249191ad66b0691471aa1721d726a6a6964

core/default.nix

@@ -21,8 +21,6 @@
     trace
     json
 
-    (callPackage ../planner {})
-
     libsodium # TODO(puck): don't propagate this
   ];
 }

core/src/magic.sld

@@ -13,7 +13,6 @@
     (zilch lib hash) (zilch lib rewrite)
     (zilch nix daemon) (zilch nix drv) (zilch nix path)
     (zilch nix hash)
-    (zilch planner step)
     (zilch zexpr)
     (srfi 18) (srfi 128) (srfi 132) (srfi 146) (srfi 152) (srfi 207)
     (chicken base) (chicken format) socket)
@@ -615,25 +614,6 @@
      (set-derivation-meta! (store-path-drv path) (cons (cons 'post-build callback) (or (derivation-meta (store-path-drv path)) '())))
      path)
 
-   (register-build-step '((zilch core magic) build) #t
-    (lambda items
-      (printf "received build info: ~S\n" items)
-      (define all-paths '())
-      (for-each
-        (lambda (item)
-          (define outputs (list-ref item 1))
-          (define drv-path (list-ref item 2))
-          (set! all-paths (append (map (lambda (o) (string-append drv-path "!" o)) outputs) all-paths)))
-        items)
-      (daemon-wop-build-paths (*daemon*) (list->vector all-paths))
-      (define output '())
-      (for-each
-        (lambda (item)
-          (define output-map (daemon-wop-query-derivation-output-map (*daemon*) (list-ref item 2)))
-          (set! output (cons (cons (car item) output-map) output)))
-        items)
-      output))
-
    ;; Ensures the `<store-path>` exists, then opens an input port to allow reading from it.
    (define (store-path-open path)
      (increment-counter 2)