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)