
  0 | module Qutescript
  1 | 
  2 | import public Control.RIO
  3 | import public Control.RIO.File
  4 | import public Qutescript.Command
  5 | import public Qutescript.Request
  6 | 
  7 | parameters {auto h : Has FileErr ts}
  8 |            {auto r : Request}
  9 | 
 10 |   export %inline
 11 |   cmd : Command -> App ts ()
 12 |   cmd c = write @{local} r.fifo "\{c}\n"
 13 | 
 14 |   export %inline
 15 |   cmds : List Command -> App ts ()
 16 |   cmds = traverse_ cmd
 17 |