showDirectory :: FilePath -> IO [FilePath]
showDirectory path =
    handle (emptyError) $ do
    content <- getDirectoryContents path
    return $ filter dotDirFilter content
showDirectory :: FilePath -> IO [FilePath]
showDirectory path =
    handle (emptyError) $ do
    content <- getDirectoryContents path
    return $ filter dotDirFilter content
showDirectory path =
    handle (emptyError) $ do
    content <- getDirectoryContents path
    return $ filter dotDirFilter content