Platform.icl 297 Bytes
Newer Older
Mart Lubbers's avatar
Mart Lubbers committed
1
implementation module CleanSerial.Platform
2 3 4 5 6

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

Mart Lubbers's avatar
updates  
Mart Lubbers committed
7
getDevices :: !*World -> *([String], !*World)
8 9 10
getDevices w = case readDirectory "/dev" w of
	(Error (errcode, errmsg), w) = abort errmsg
	(Ok entries, w) = (entries, w)