diff options
| author | Óscar Nájera <hi@oscarnajera.com> | 2021-09-24 17:46:11 +0200 |
|---|---|---|
| committer | Óscar Nájera <hi@oscarnajera.com> | 2021-09-24 17:46:11 +0200 |
| commit | 51fa5968c16f2eb5069a9d7af24cef8dd04f8328 (patch) | |
| tree | 1194c50a34f172b67923c2577548d9d16ab3ada7 | |
| parent | 8c6fd7803f087b2ccbe579852a7f2fc38a67ba13 (diff) | |
| download | dotfiles-51fa5968c16f2eb5069a9d7af24cef8dd04f8328.tar.gz dotfiles-51fa5968c16f2eb5069a9d7af24cef8dd04f8328.tar.bz2 dotfiles-51fa5968c16f2eb5069a9d7af24cef8dd04f8328.zip | |
Organize directories for cardano services
| -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)))) |