diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-02-11 22:58:53 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-02-12 23:43:18 +0100 |
| commit | ad3729536ab4fe233b32017ac889f026a4bad43e (patch) | |
| tree | 1312679dda600e3ffbaa89e8fa2fcc5cde69b5a9 /guix/store.scm | |
| parent | 00ab945823261f039dd6e654ff2c79621fbd96cf (diff) | |
| download | gnu-guix-ad3729536ab4fe233b32017ac889f026a4bad43e.tar gnu-guix-ad3729536ab4fe233b32017ac889f026a4bad43e.tar.gz | |
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.
Diffstat (limited to 'guix/store.scm')
| -rw-r--r-- | guix/store.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/guix/store.scm b/guix/store.scm index 02d84eb517..d88fb3ea54 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -890,11 +890,13 @@ taking the store as its first argument." ;; 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 |