mapFileToRemoteFile :: DP.Folder -> DP.Document -> (Path, RemoteFile)
mapFileToRemoteFile fldr doc = let file = fileFromFolderDoc fldr doc
                               in (File.path file, RemoteFile file fldr doc)
mapFileToRemoteFile :: DP.Folder -> DP.Document -> (Path, RemoteFile)
mapFileToRemoteFile fldr doc = let file = fileFromFolderDoc fldr doc
                               in (File.path file, RemoteFile file fldr doc)
mapFileToRemoteFile fldr doc = let file = fileFromFolderDoc fldr doc
                               in (File.path file, RemoteFile file fldr doc)