- SerialDevice = accWorld getTTYDevices
- >>= \dl->(enterInformation "Name" [] -&&- enterChoice "Device" [] dl -&&- updateInformation "Settings" [] zero)
- >>= \(name, (dev, set))->cont name (syncSerialChannel dev set encode decode)
+ SerialDevice = (enterInformation "Name" [] -&&- enterTTYSettings)
+ >>= \(name, set)->cont name (syncSerialChannel set encode decode)