DAV 0.4 → 0.4.1
raw patch · 2 files changed
+2/−4 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Paths_DAV: getBinDir :: IO FilePath
- Paths_DAV: getDataDir :: IO FilePath
- Paths_DAV: getDataFileName :: FilePath -> IO FilePath
- Paths_DAV: getLibDir :: IO FilePath
- Paths_DAV: getLibexecDir :: IO FilePath
- Paths_DAV: version :: Version
- Network.Protocol.HTTP.DAV: allowedMethods :: Lens' (DAVContext a_aaE4) [ByteString]
+ Network.Protocol.HTTP.DAV: allowedMethods :: Lens' (DAVContext a_a9sU) [ByteString]
- Network.Protocol.HTTP.DAV: baseRequest :: Lens (DAVContext a_aaE4) (DAVContext a_abqR) (Request a_aaE4) (Request a_abqR)
+ Network.Protocol.HTTP.DAV: baseRequest :: Lens (DAVContext a_a9sU) (DAVContext a_aagG) (Request a_a9sU) (Request a_aagG)
- Network.Protocol.HTTP.DAV: basicpassword :: Lens' (DAVContext a_aaE4) ByteString
+ Network.Protocol.HTTP.DAV: basicpassword :: Lens' (DAVContext a_a9sU) ByteString
- Network.Protocol.HTTP.DAV: basicusername :: Lens' (DAVContext a_aaE4) ByteString
+ Network.Protocol.HTTP.DAV: basicusername :: Lens' (DAVContext a_a9sU) ByteString
- Network.Protocol.HTTP.DAV: complianceClasses :: Lens' (DAVContext a_aaE4) [ByteString]
+ Network.Protocol.HTTP.DAV: complianceClasses :: Lens' (DAVContext a_a9sU) [ByteString]
- Network.Protocol.HTTP.DAV: depth :: Lens' (DAVContext a_aaE4) (Maybe Depth)
+ Network.Protocol.HTTP.DAV: depth :: Lens' (DAVContext a_a9sU) (Maybe Depth)
- Network.Protocol.HTTP.DAV: httpManager :: Lens' (DAVContext a_aaE4) Manager
+ Network.Protocol.HTTP.DAV: httpManager :: Lens' (DAVContext a_a9sU) Manager
- Network.Protocol.HTTP.DAV: lockToken :: Lens' (DAVContext a_aaE4) (Maybe ByteString)
+ Network.Protocol.HTTP.DAV: lockToken :: Lens' (DAVContext a_a9sU) (Maybe ByteString)
Files
- DAV.cabal +1/−1
- Network/Protocol/HTTP/DAV.hs +1/−3
DAV.cabal view
@@ -1,5 +1,5 @@ name: DAV-version: 0.4+version: 0.4.1 synopsis: RFC 4918 WebDAV support description: This is a library for the Web Distributed Authoring and Versioning
Network/Protocol/HTTP/DAV.hs view
@@ -32,7 +32,6 @@ , module Network.Protocol.HTTP.DAV.TH ) where -import Paths_DAV (version) import Network.Protocol.HTTP.DAV.TH import Control.Applicative (liftA2)@@ -49,7 +48,6 @@ import qualified Data.Map as Map import Data.Maybe (catMaybes, fromMaybe)-import Data.Version (showVersion) import Network.HTTP.Conduit (httpLbs, parseUrl, applyBasicAuth, Request(..), RequestBody(..), Response(..), newManager, closeManager, ManagerSettings(..), def, HttpException(..)) import Network.HTTP.Types (hContentType, Method, Status, RequestHeaders, unauthorized401, conflict409)@@ -80,7 +78,7 @@ davRequest meth addlhdrs rbody = do ctx <- get let hdrs = catMaybes- [ Just (mk "User-Agent", (BC8.pack ("hDav " ++ showVersion version)))+ [ Just (mk "User-Agent", (BC8.pack ("hDav-using application"))) , fmap ((,) (mk "Depth") . BC8.pack . show) (ctx ^. depth) ] ++ addlhdrs req = (ctx ^. baseRequest) { method = meth, requestHeaders = hdrs, requestBody = rbody }