Commit 9a326708 authored by Mart Lubbers's avatar Mart Lubbers

rename getDevices

parent 742f02c7
Pipeline #15486 passed with stage
in 3 minutes
definition module TTYPlatform
getDevices :: !*World -> *([String], !*World)
getTTYDevices :: !*World -> *([String], !*World)
......@@ -6,8 +6,8 @@ import System.Directory
import Data.Func
import Text
getDevices :: !*World -> *([String], !*World)
getDevices w = case readDirectory "/dev" w of
getTTYDevices :: !*World -> *([String], !*World)
getTTYDevices w = case readDirectory "/dev" w of
(Error (errcode, errmsg), w) = abort errmsg
(Ok entries, w) = (sortBy (on (>) known) (filter isaTTYdevice entries), w)
......
definition module TTYPlatform
getDevices :: !*World -> *([String], !*World)
getTTYDevices :: !*World -> *([String], !*World)
......@@ -9,8 +9,8 @@ import System._WinBase
import StdMisc, StdDebug, StdBool, StdString
import Text
getDevices :: !*World -> *([String], !*World)
getDevices w
getTTYDevices :: !*World -> *([String], !*World)
getTTYDevices w
# (ph, w) = getProcessHeap w
# (ptr, w) = heapAlloc ph 0 40960 w
# (ret, w) = realQDD 0 ptr 40960 w
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment