diff --git a/DAV.cabal b/DAV.cabal
--- a/DAV.cabal
+++ b/DAV.cabal
@@ -1,5 +1,5 @@
 name:                DAV
-version:             0.6.2
+version:             0.7
 synopsis:            RFC 4918 WebDAV support
 description:
    This is a library for the Web Distributed Authoring and Versioning
@@ -25,7 +25,7 @@
   exposed-modules:  Network.Protocol.HTTP.DAV
   other-modules:    Network.Protocol.HTTP.DAV.TH
   ghc-options:       -Wall
-  build-depends:       base >= 4.5                 && <= 5
+  build-depends:       base >= 4.5                 && < 5
                      , bytestring
                      , case-insensitive >= 0.4
                      , containers
@@ -41,11 +41,11 @@
                      , transformers >= 0.3
                      , transformers-base
                      , xml-conduit >= 1.0          && < 1.3
-                     , xml-hamlet >= 0.4           && <= 0.5
+                     , xml-hamlet >= 0.4           && < 0.5
 executable hdav
   main-is:           hdav.hs
   ghc-options:       -Wall
-  build-depends:       base >= 4.5                 && <= 5
+  build-depends:       base >= 4.5                 && < 5
                      , bytestring
                      , bytestring
                      , case-insensitive >= 0.4
@@ -64,7 +64,7 @@
                      , transformers >= 0.3
                      , transformers-base
                      , xml-conduit >= 1.0          && < 1.3
-                     , xml-hamlet >= 0.4           && <= 0.5
+                     , xml-hamlet >= 0.4           && < 0.5
 
 source-repository head
   type:     git
@@ -74,4 +74,4 @@
 source-repository this
   type:     git
   location: git://anonscm.debian.org/users/clint/DAV.git
-  tag:      DAV/0.6.2
+  tag:      DAV/0.7
diff --git a/Network/Protocol/HTTP/DAV.hs b/Network/Protocol/HTTP/DAV.hs
--- a/Network/Protocol/HTTP/DAV.hs
+++ b/Network/Protocol/HTTP/DAV.hs
@@ -41,10 +41,12 @@
   , delContentM
   , getPropsM
   , getContentM
+  , withContentM
   , mkCol
   , moveContentM
   , putPropsM
   , putContentM
+  , putContentM'
   , withLockIfPossible
   , withLockIfPossibleForDelete
   , module Network.Protocol.HTTP.DAV.TH
@@ -72,7 +74,7 @@
 
 import Data.Maybe (catMaybes, fromMaybe)
 
-import Network.HTTP.Client (RequestBody(..), httpLbs, parseUrl, applyBasicAuth, Request(..), Response(..), newManager, closeManager, HttpException(..))
+import Network.HTTP.Client (RequestBody(..), httpLbs, parseUrl, applyBasicAuth, Request(..), Response(..), newManager, closeManager, HttpException(..), BodyReader, withResponse)
 import Network.HTTP.Client.TLS (tlsManagerSettings)
 import Network.HTTP.Types (hContentType, Method, Status, RequestHeaders, unauthorized401, conflict409)
 
@@ -120,8 +122,8 @@
 setResponseTimeout :: MonadIO m => Maybe Int -> DAVT m ()
 setResponseTimeout rt = baseRequest %= \x -> x { responseTimeout = rt }
 
-davRequest :: MonadIO m => Method -> RequestHeaders -> RequestBody -> DAVT m (Response BL.ByteString)
-davRequest meth addlhdrs rbody = do
+mkDavRequest :: MonadIO m => Method -> RequestHeaders -> RequestBody -> DAVT m Request
+mkDavRequest meth addlhdrs rbody = do
     ctx <- get
     let hdrs = catMaybes
                [ Just (mk "User-Agent", ctx ^. userAgent)
@@ -131,8 +133,15 @@
         authreq = if B.null (ctx ^. basicusername) && B.null (ctx ^. basicpassword)
             then req
             else applyBasicAuth (ctx ^. basicusername) (ctx ^. basicpassword) req
-    liftIO (httpLbs authreq (ctx ^. httpManager))
+    return authreq
 
+davRequest :: MonadIO m => Method -> RequestHeaders -> RequestBody -> DAVT m (Response BL.ByteString)
+davRequest meth addlhdrs rbody = go =<< mkDavRequest meth addlhdrs rbody
+  where
+    go req = do
+      ctx <- get
+      liftIO (httpLbs req (ctx ^. httpManager))
+
 matchStatusCodeException :: Status -> HttpException -> Maybe ()
 matchStatusCodeException want (StatusCodeException s _ _)
     | s == want = Just ()
@@ -182,18 +191,33 @@
     propresp <- davRequest "PROPFIND" ahs (xmlBody propname)
     return $ (XML.parseLBS_ XML.def . responseBody) propresp
 
+-- | Note that the entire request body is buffered in memory.
+-- To stream large files use withContentM instead.
 getContentM :: MonadIO m => DAVT m (Maybe B.ByteString, BL.ByteString)
 getContentM = do
     resp <- davRequest "GET" [] emptyBody
     let ct = lookup hContentType (responseHeaders resp)
     return (ct, responseBody resp)
 
+withContentM :: MonadIO m => (Response BodyReader -> IO a) -> DAVT m a
+withContentM handleresponse = do
+    req <- mkDavRequest "GET" [] emptyBody
+    ctx <- get
+    liftIO $ withResponse req (ctx ^. httpManager) handleresponse
+
+-- | Note that the entire request body is buffered in memory; not suitable
+-- for large files.
 putContentM :: MonadIO m => (Maybe B.ByteString, BL.ByteString) -> DAVT m ()
-putContentM (ct, body) = do
+putContentM (ct, body) = putContentM' (ct, RequestBodyLBS body)
+
+-- | To send a large file, pass eg a RequestBodyStream containing the
+-- file's content.
+putContentM' :: MonadIO m => (Maybe B.ByteString, RequestBody) -> DAVT m ()
+putContentM' (ct, requestbody) = do
     d <- get
     let ahs' = maybe [] (return . (,) (mk "If") . parenthesize) (d ^. lockToken)
     let ahs = ahs' ++ maybe [] (return . (,) hContentType) ct
-    _ <- davRequest "PUT" ahs (RequestBodyLBS body)
+    _ <- davRequest "PUT" ahs requestbody
     return ()
 
 delContentM :: MonadIO m => DAVT m ()