bugfixes

2 files changed, 17 insertions, 18 deletions

diff --git a/lib/midi/core.moon b/lib/midi/core.moon
index 627aa2e..d5259ad 100644
--- a/lib/midi/core.moon
+++ b/lib/midi/core.moon
@@ -1,4 +1,4 @@
-import IO, Op, Registry, ValueInput, match from require 'core.base'
+import IO, Op, Registry, Input, match from require 'core.base'
 import RtMidiIn, RtMidiOut, RtMidi from require 'luartmidi'
 import band, bor, lshift, rshift from require 'bit32'
 
@@ -68,7 +68,7 @@ class input extends PortOp
 
   setup: (inputs) =>
     { name } = match 'str', inputs
-    super name: ValueInput name
+    super name: Input.value name
 
   tick: => super @inputs.name
 
@@ -77,7 +77,7 @@ class output extends PortOp
 
   setup: (inputs) =>
     { name } = match 'str', inputs
-    super name: ValueInput name
+    super name: Input.value name
 
   tick: => super nil, @inputs.name
 
@@ -87,8 +87,8 @@ class inout extends PortOp
   setup: (inputs) =>
     { inp, out } = match 'str str', inputs
     super
-      inp: ValueInput inp
-      out: ValueInput out
+      inp: Input.value inp
+      out: Input.value out
 
   tick: => super @inputs.inp, @inputs.out
 
diff --git a/lib/midi/launchctl.moon b/lib/midi/launchctl.moon
index 495743b..6408528 100644
--- a/lib/midi/launchctl.moon
+++ b/lib/midi/launchctl.moon
@@ -1,5 +1,4 @@
-import Value, Op, ValueInput, EventInput, IOInput, match
-  from require 'core.base'
+import Value, Op, Input, match from require 'core.base'
 import apply_range from require 'lib.midi.core'
 import bor, lshift from require 'bit32'
 
@@ -29,12 +28,12 @@ range can be one of:
       chan, steps, range } = match 'midi/port num num num num? any?', inputs
 
     super
-      port:  IOInput port
-      i:     ValueInput i
-      start: ValueInput start
-      chan:  ValueInput chan
-      steps: ValueInput steps or Value.num 8
-      range: ValueInput range or Value.str 'uni'
+      port:  Input.io port
+      i:     Input.value i
+      start: Input.value start
+      chan:  Input.value chan
+      steps: Input.value steps or Value.num 8
+      range: Input.value range or Value.str 'uni'
 
     if not @out\unwrap!
       @out\set apply_range @inputs.range, 0
@@ -75,11 +74,11 @@ steps defaults to 8."
     { port, i, start, chan, steps } = match 'midi/port num num num num?', inputs
 
     super
-      port:  IOInput port
-      i:     ValueInput i
-      start: ValueInput start
-      chan:  ValueInput chan
-      steps: ValueInput steps or Value.num 8
+      port:  Input.io port
+      i:     Input.value i
+      start: Input.value start
+      chan:  Input.value chan
+      steps: Input.value steps or Value.num 8
 
   light = (set, active) ->
     set = if set then 'S' else ' '