aboutsummaryrefslogtreecommitdiffstats
path: root/config/shepherd
diff options
context:
space:
mode:
Diffstat (limited to 'config/shepherd')
-rw-r--r--config/shepherd/init.d/cardano.scm32
1 files changed, 32 insertions, 0 deletions
diff --git a/config/shepherd/init.d/cardano.scm b/config/shepherd/init.d/cardano.scm
new file mode 100644
index 0000000..4e73046
--- /dev/null
+++ b/config/shepherd/init.d/cardano.scm
@@ -0,0 +1,32 @@
+(let ((config-dir (string-append (getenv "HOME") "/.guix-profile/etc/conf/cardano/"))
+ (db-dir (string-append (getenv "HOME") "/test-cardano/purple/")))
+ (mkdir db-dir)
+ (register-services
+ (make <service>
+ #:docstring "Alonzo Purple test network"
+ #:provides '(alonzo-purple-node)
+ #:start (make-forkexec-constructor
+ (list "cardano-node" "run"
+ "--database-path" db-dir
+ "--socket-path" (string-append db-dir "socket")
+ "--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")
+ )
+ #:stop (make-kill-destructor)
+ #:respawn? #t))
+
+ (register-services
+ (make <service>
+ #:docstring "Alonzo Purple wallet"
+ #:provides '(alonzo-wallet)
+ #:start (make-forkexec-constructor
+ (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"
+ "--testnet" (string-append config-dir "alonzo-purple-byron-genesis.json"))
+ #:log-file (string-append db-dir "/log/alonzo-wallet.log"))
+ #:stop (make-kill-destructor)
+ #:requires '(alonzo-purple-node))))