Network.Protocol.HTTP.DAV

Synopsis

• newtype DAVT m a = DAVT {
  • runDAVT :: ExceptT String (StateT DAVContext m) a
  }
• evalDAVT :: MonadIO m => DAVURL -> DAVT m a -> m (Either String a)
• withDAVContext :: MonadIO m => DAVURL -> (DAVContext -> m a) -> m a
• runDAVContext :: MonadIO m => DAVContext -> DAVT m a -> m (Either String a, DAVContext)
• setCreds :: MonadIO m => ByteString -> ByteString -> DAVT m ()
• setDepth :: MonadIO m => Maybe Depth -> DAVT m ()
• setResponseTimeout :: MonadIO m => Maybe Int -> DAVT m ()
• setUserAgent :: MonadIO m => ByteString -> DAVT m ()
• data DAVContext = DAVContext {
  • _allowedMethods :: [ByteString]
  • _baseRequest :: Request
  • _basicusername :: ByteString
  • _basicpassword :: ByteString
  • _complianceClasses :: [ByteString]
  • _depth :: Maybe Depth
  • _httpManager :: Maybe Manager
  • _lockToken :: Maybe ByteString
  • _userAgent :: ByteString
  }
• caldavReportM :: MonadIO m => DAVT m Document
• delContentM :: MonadIO m => DAVT m ()
• getPropsM :: MonadIO m => DAVT m Document
• getContentM :: MonadIO m => DAVT m (Maybe ByteString, ByteString)
• withContentM :: MonadIO m => (Response BodyReader -> IO a) -> DAVT m a
• mkCol :: (MonadIO m, MonadBase IO m, MonadCatch m) => DAVT m Bool
• moveContentM :: MonadIO m => ByteString -> DAVT m ()
• putPropsM :: MonadIO m => Document -> DAVT m ()
• putContentM :: MonadIO m => (Maybe ByteString, ByteString) -> DAVT m ()
• putContentM' :: MonadIO m => (Maybe ByteString, RequestBody) -> DAVT m ()
• withLockIfPossible :: (MonadIO m, MonadBase IO m) => Bool -> DAVT m a -> DAVT m a
• withLockIfPossibleForDelete :: (MonadIO m, MonadBase IO m) => Bool -> DAVT m a -> DAVT m a
• inDAVLocation :: MonadIO m => (String -> String) -> DAVT m a -> DAVT m a
• getDAVLocation :: Monad m => DAVT m String
• mkDAVContext :: MonadIO m => DAVURL -> m DAVContext
• closeDAVContext :: MonadIO m => DAVContext -> m ()
• data Depth
  • = Depth0
  • | Depth1
  • | DepthInfinity
• data DAVContext = DAVContext {
  • _allowedMethods :: [ByteString]
  • _baseRequest :: Request
  • _basicusername :: ByteString
  • _basicpassword :: ByteString
  • _complianceClasses :: [ByteString]
  • _depth :: Maybe Depth
  • _httpManager :: Maybe Manager
  • _lockToken :: Maybe ByteString
  • _userAgent :: ByteString
  }
• userAgent :: Lens' DAVContext ByteString
• lockToken :: Lens' DAVContext (Maybe ByteString)
• httpManager :: Lens' DAVContext (Maybe Manager)
• depth :: Lens' DAVContext (Maybe Depth)
• complianceClasses :: Lens' DAVContext [ByteString]
• basicusername :: Lens' DAVContext ByteString
• basicpassword :: Lens' DAVContext ByteString
• baseRequest :: Lens' DAVContext Request
• allowedMethods :: Lens' DAVContext [ByteString]

Documentation

import System.FilePath.Posix -- posix for url path manipulation

mkColRecursive d = do
  let parent = takeDirectory d
  when (parent /= d) $
    mkColRecursive parent
  inDAVLocation (</> d) mkCol