subsections :: FilePath -> Section -> IO [Isolate]
subsections path z = do
    let dir = path </> Isolate.name (label z)
    there <- doesDirectoryExist dir
    if not there then return [] else do
        files <- ls dir
        mapM (uncurry Isolate.create . splitFileName) files
subsections :: FilePath -> Section -> IO [Isolate]
subsections path z = do
    let dir = path </> Isolate.name (label z)
    there <- doesDirectoryExist dir
    if not there then return [] else do
        files <- ls dir
        mapM (uncurry Isolate.create . splitFileName) files
subsections path z = do
    let dir = path </> Isolate.name (label z)
    there <- doesDirectoryExist dir
    if not there then return [] else do
        files <- ls dir
        mapM (uncurry Isolate.create . splitFileName) files