Removing saltification compat

This commit is contained in:
Jay McCarthy 2013-03-07 09:01:48 -07:00
parent ec0398fcdd
commit 39ae7a834b

View File

@ -49,16 +49,6 @@
(define (client_secret)
(file->string (build-path root "client_secret")))
(module+ main
(define users-old-path (build-path root "users.old"))
(when (directory-exists? users-old-path)
(for ([u (in-list (directory-list users-old-path))])
(define uop (build-path users-old-path u))
(display-to-file (salty (file->string uop))
(build-path users-path u))
(delete-file uop))
(delete-directory users-old-path)))
(define pkgs-path (build-path root "pkgs"))
(make-directory* pkgs-path)