hums 0.4.0 → 0.4.1
raw patch · 2 files changed
+7/−7 lines, 2 filesdep ~conduitdep ~waidep ~warp
Dependency ranges changed: conduit, wai, warp
Files
- hums.cabal +5/−5
- src/Handlers.hs +2/−2
hums.cabal view
@@ -1,5 +1,5 @@ Name: hums-Version: 0.4.0+Version: 0.4.1 Synopsis: Haskell UPnP Media Server Description: A simple UPnP Media Server. .@@ -21,7 +21,7 @@ Build-Depends: base == 4.* , blaze-builder >= 0.3 && <0.4 , bytestring >= 0.9.0.1- , conduit >= 0.1 && <0.2+ , conduit >= 0.2 && <0.3 , ConfigFile >= 1.0.5 , containers >= 0.1.0.1 , directory >= 1.0.0.0@@ -40,12 +40,12 @@ , uuid >= 1.2.1 && < 1.3 , unordered-containers >= 0.1 && < 0.2 , case-insensitive >= 0.2 && < 0.3- , wai >= 1.0 && < 1.1- , warp >= 1.0 && < 1.1+ , wai >= 1.1 && < 1.2+ , warp >= 1.1 && < 1.2 Extensions: Arrows GeneralizedNewtypeDeriving OverloadedStrings- ghc-options: -Wall -O2 -fno-warn-unused-matches -threaded+ ghc-options: -Wall -fno-warn-unused-matches -threaded hs-source-dirs: src Main-is: Main.hs Other-modules: Action
src/Handlers.hs view
@@ -33,7 +33,7 @@ import qualified Data.ByteString.Lazy as L import Data.CaseInsensitive (CI) import qualified Data.CaseInsensitive as CI-import Data.Conduit (ResourceT, ($$))+import Data.Conduit (ResourceT, Flush(..), ($$)) import qualified Data.Conduit.List as CL import Data.Conduit.Binary (sourceFileRange) import Data.IORef (IORef, readIORef)@@ -88,7 +88,7 @@ let l' = maybe 0 id l let h' = maybe (fsz-1) id h let n = (h' - l' + 1)- let src = fmap fromByteString $ sourceFileRange fp (Just l') (Just n)+ let src = fmap (Chunk . fromByteString) $ sourceFileRange fp (Just l') (Just n) return $ ResponseSource status206 [ hdrContentLength n , headerContentType mimeType , hdrContentRange l' h' fsz