(foreign-declare "#include \"implementations/SHA-2/sha256crypt.c\"")

(define (crypt-sha256 password setting)
  (or ((foreign-lambda c-string "sha256_crypt" c-string c-string)
       password setting)
      ;; TODO: implement proper error handling
      (error "Error running SHA-256 crypt")))