ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

5
doc/guix.texi
View file

@ -2358,9 +2358,10 @@ Run @var{mval}, a monadic value in the store monad, in @var{store}, an
open store connection.
@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
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
@deffn {Monadic Procedure} interned-file @var{file} [@var{name}] @

8
guix/store.scm
View file

@ -890,11 +890,13 @@ (define (store-lower proc)
;; 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
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)
(values (add-text-to-store store name text '())
(values (add-text-to-store store name text references)
store)))
(define* (interned-file file #:optional name