store: Add optional 'references' parameter to 'text-file'.

* guix/store.scm (text-file): Add optional 'references' parameter.  Pass
  it to 'add-text-to-store'.
* doc/guix.texi (The Store Monad): Adjust accordingly.
This commit is contained in:
Ludovic Courtès 2015-02-11 22:58:53 +01:00
parent 00ab945823
commit ad3729536a
2 changed files with 8 additions and 5 deletions

View File

@ -2358,9 +2358,10 @@ Run @var{mval}, a monadic value in the store monad, in @var{store}, an
open store connection. open store connection.
@end deffn @end deffn
@deffn {Monadic Procedure} text-file @var{name} @var{text} @deffn {Monadic Procedure} text-file @var{name} @var{text} [@var{references}]
Return as a monadic value the absolute file name in the store of the file Return as a monadic value the absolute file name in the store of the file
containing @var{text}, a string. containing @var{text}, a string. @var{references} is a list of store items that the
resulting text file refers to; it defaults to the empty list.
@end deffn @end deffn
@deffn {Monadic Procedure} interned-file @var{file} [@var{name}] @ @deffn {Monadic Procedure} interned-file @var{file} [@var{name}] @

View File

@ -890,11 +890,13 @@ taking the store as its first argument."
;; Store monad operators. ;; Store monad operators.
;; ;;
(define* (text-file name text) (define* (text-file name text
#:optional (references '()))
"Return as a monadic value the absolute file name in the store of the file "Return as a monadic value the absolute file name in the store of the file
containing TEXT, a string." containing TEXT, a string. REFERENCES is a list of store items that the
resulting text file refers to; it defaults to the empty list."
(lambda (store) (lambda (store)
(values (add-text-to-store store name text '()) (values (add-text-to-store store name text references)
store))) store)))
(define* (interned-file file #:optional name (define* (interned-file file #:optional name