-Start w = startEngine (selecter "/home/mrl/projects" 2) w
-
-recurseDirectory :: Int FilePath FilePath *World -> *(MaybeOSError (RTree (FilePath, Bool)), *World)
-recurseDirectory maxdepth acc fp w
-# fp = acc </> fp
-= case getFileInfo fp w of
- (Error (i, e), w) = (Error (i, e +++ " in fileinfo " +++ fp), w)
- (Ok fi, w)
- | not fi.directory = (Ok $ RNode (fp, False) [], w)
- = case readDirectory fp w of
- (Error (i, e), w) = (Error (i, e +++ " in readDir " +++ fp), w)
- (Ok cs, w)
- | maxdepth == 0 = (Ok $ RNode (fp, True) [], w)
- = appFst ((fmap $ RNode (fp, True)) o 'M'.sequence)
- $ mapSt (recurseDirectory (maxdepth - 1) fp) (filter real cs) w
+Start w = startEngine
+ (viewSharedInformation () []
+ $ mapRead (map fst)
+ $ sdsFocus "/opt/clean/lib/StdLib" directoryShare
+ ) w
+
+instance toString OSError where toString (_, e) = e
+instance Bifunctor MaybeError