-runDroidMachine d = d { _machine = machine'
- , _executionState = halted
- , _machineOutput = output
- }
- where machine = _machine d
- input = _currentInput d
- (halted, machine', output) = runMachine input machine
+-- runDroidMachine d = d { _machine = machine'
+-- , _executionState = halted
+-- , _machineOutput = output
+-- }
+ -- where machine = _machine d
+ -- input = _currentInput d
+ -- (halted, machine', output) = runMachine input machine
+runDroidMachine d = d & machine .~ machine'
+ & executionState .~ halted
+ & machineOutput .~ output
+ where (halted, machine', output) = runMachine (d ^. currentInput) (d ^. machine)