fullWebPath :: DirectoryUrl -> FileStat -> FilePath
fullWebPath d f = ((webLocation d) ++ "/" ++ (fileName f))
fullWebPath :: DirectoryUrl -> FileStat -> FilePath
fullWebPath d f = ((webLocation d) ++ "/" ++ (fileName f))
fullWebPath d f = ((webLocation d) ++ "/" ++ (fileName f))