fullFsPath :: DirectoryUrl -> FileStat -> FilePath
fullFsPath d f = ((fsLocation d) ++ "/" ++ (fileName f))
fullFsPath :: DirectoryUrl -> FileStat -> FilePath
fullFsPath d f = ((fsLocation d) ++ "/" ++ (fileName f))
fullFsPath d f = ((fsLocation d) ++ "/" ++ (fileName f))