diff options
Diffstat (limited to 'config/shepherd/init.d/cardano.scm')
| -rw-r--r-- | config/shepherd/init.d/cardano.scm | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/config/shepherd/init.d/cardano.scm b/config/shepherd/init.d/cardano.scm index 4e73046..86cff60 100644 --- a/config/shepherd/init.d/cardano.scm +++ b/config/shepherd/init.d/cardano.scm @@ -1,6 +1,15 @@ + +(define (make-dir-parents dir-path) + (unless (access? dir-path F_OK) + (make-dir-parents (dirname dir-path)) + (mkdir dir-path))) + (let ((config-dir (string-append (getenv "HOME") "/.guix-profile/etc/conf/cardano/")) (db-dir (string-append (getenv "HOME") "/test-cardano/purple/"))) - (mkdir db-dir) + (for-each make-dir-parents (list db-dir + (string-append db-dir "log") + (string-append db-dir "wallet"))) + (register-services (make <service> #:docstring "Alonzo Purple test network" @@ -12,7 +21,7 @@ "--port" "3005" "--config" (string-append config-dir "alonzo-purple-config.json") "--topology" (string-append config-dir "alonzo-purple-topology.json")) - #:log-file (string-append db-dir "/log/alonzo.log") + #:log-file (string-append db-dir "log/alonzo.log") ) #:stop (make-kill-destructor) #:respawn? #t)) @@ -25,8 +34,9 @@ (list (string-append (getenv "HOME") "/.cabal/bin/cardano-wallet") "serve" "--node-socket" (string-append db-dir "socket") - "--database" "/home/titan/dev/cardano/cardano-wallet/waldb" + "--database" (string-append db-dir "wallet") + "--token-metadata-server" "https://metadata.cardano-testnet.iohkdev.io" "--testnet" (string-append config-dir "alonzo-purple-byron-genesis.json")) - #:log-file (string-append db-dir "/log/alonzo-wallet.log")) + #:log-file (string-append db-dir "log/alonzo-wallet.log")) #:stop (make-kill-destructor) #:requires '(alonzo-purple-node)))) |