uri-conduit 0.2.0.2 → 0.2.1
raw patch · 3 files changed
+16/−10 lines, 3 filesdep ~conduitPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: conduit
API changes (from Hackage documentation)
Files
- Network/URI/Conduit.hs +7/−4
- Network/URI/Conduit/File.hs +7/−4
- uri-conduit.cabal +2/−2
Network/URI/Conduit.hs view
@@ -96,10 +96,13 @@ => SchemeMap -> URI -> C.Source m ByteString-readURI sm uri = C.Source $ do- case Map.lookup (uriScheme uri) sm >>= schemeReader of- Nothing -> lift $ C.resourceThrow $ UnknownReadScheme uri- Just f -> C.prepareSource $ f uri+readURI sm uri = C.Source+ { C.sourcePull =+ case Map.lookup (uriScheme uri) sm >>= schemeReader of+ Nothing -> lift $ C.resourceThrow $ UnknownReadScheme uri+ Just f -> C.sourcePull $ f uri+ , C.sourceClose = return ()+ } writeURI :: ResourceIO m => SchemeMap
Network/URI/Conduit/File.hs view
@@ -39,10 +39,13 @@ fileScheme = Scheme { schemeNames = Set.singleton "file:" , schemeReader = Just $ sourceFile . toFilePath- , schemeWriter = Just $ \uri -> C.Sink $ do- let fp = toFilePath uri- liftIO $ F.createTree $ FP.directory fp- C.prepareSink $ CB.sinkFile (FP.encodeString fp)+ , schemeWriter = Just $ \uri -> C.SinkData+ { C.sinkPush = \bs -> do+ let fp = toFilePath uri+ liftIO $ F.createTree $ FP.directory fp+ C.sinkPush (CB.sinkFile $ FP.encodeString fp) bs+ , C.sinkClose = return ()+ } } toFilePath :: URI -> FP.FilePath
uri-conduit.cabal view
@@ -1,5 +1,5 @@ Name: uri-conduit-Version: 0.2.0.2+Version: 0.2.1 Synopsis: Read and write URIs Homepage: http://github.com/snoyberg/xml License: BSD3@@ -15,7 +15,7 @@ Exposed-modules: Network.URI.Conduit Network.URI.Conduit.File Build-depends: base >= 4 && < 5- , conduit >= 0.0.0.2+ , conduit >= 0.2 && < 0.3 , text >= 0.5 && < 1.0 , transformers >= 0.2 && < 0.3 , bytestring >= 0.9 && < 0.10