{-
eventsets :: [EventSet]
eventsets = [ EventSet psetup param (rsetupgen x) | x <- [1..1000] ] 
-}

rdir :: WebDAVRemoteDir
rdir = WebDAVRemoteDir "newtest2"
rdir :: WebDAVRemoteDir
rdir = WebDAVRemoteDir "newtest2"
rdir = WebDAVRemoteDir "newtest2"