Platform.icl 286 Bytes
Newer Older
Mart Lubbers's avatar
Mart Lubbers committed
1
implementation module Platform
2 3 4 5 6 7 8 9 10

import Data.Error
import StdMisc, StdOverloaded, StdString
import System.Directory

getDevices :: !*World -> !*([String], !*World)
getDevices w = case readDirectory "/dev" w of
	(Error (errcode, errmsg), w) = abort errmsg
	(Ok entries, w) = (entries, w)