launch an instance of ghci with tidal

BootTidal.hss

:set prompt ""

:module Sound.Tidal.Context

(cps, getNow) <- bpsUtils

(d1,t1) <- dirtSetters getNow
(d2,t2) <- dirtSetters getNow
(d3,t3) <- dirtSetters getNow
(d4,t4) <- dirtSetters getNow
(d5,t5) <- dirtSetters getNow
(d6,t6) <- dirtSetters getNow
(d7,t7) <- dirtSetters getNow
(d8,t8) <- dirtSetters getNow
(d9,t9) <- dirtSetters getNow
(d10,t10) <- dirtSetters getNow

let bps x = cps (x/2)
let hush = mapM_ ($ silence) [d1,d2,d3,d4,d5,d6,d7,d8,d9,d10]
let solo = (>>) hush

:set prompt "tidal> "

tidal.sh

#!/usr/bin/env expect

set timeout 5

spawn dirt
expect "init open sound control"

spawn ghci
expect "Prelude> "
send ":set -XOverloadedStrings\n"
set boottidal [open BootTidal.hss r]
while {[gets $boottidal read_line] != -1} {
    send "$read_line\r"
} 
close $boottidal
expect "tidal> "

interact