wai-handler-devel 0.4.4 → 0.4.4.1

raw patch · 2 files changed

+4/−4 lines, 2 filesdep +attoparsecdep −attoparsec-text

Dependencies added: attoparsec

Dependencies removed: attoparsec-text

Files

• wai-handler-devel.cabal +2/−2
• wai-handler-devel.hs +2/−2

@@ -1,5 +1,5 @@ Name:                wai-handler-devel-Version:             0.4.4+Version:             0.4.4.1 Synopsis:            WAI server that automatically reloads code after modification. Description:         This handler automatically reloads your source code upon any changes. It works by using the hint package, essentially embedding GHC inside the handler. The handler (both the executable and library) takes three arguments: the port to listen on, the module name containing the application function, and the name of the function.                      .@@ -34,7 +34,7 @@                    , old-time              >= 1.0           && < 1.1                    , enumerator             >= 0.4.8    && < 0.5                    , transformers          >= 0.2.2         && < 0.3-                   , attoparsec-text       >= 0.8.2         && < 0.9+                   , attoparsec            >= 0.10   Exposed-modules:   Network.Wai.Handler.DevelServer                      Network.Wai.Application.Devel   ghc-options:       -Wall

@@ -4,7 +4,7 @@ import System.Console.CmdArgs import qualified Data.Attoparsec.Text.Lazy as A import qualified Data.Text.Lazy.IO as TIO-import Control.Applicative ((<|>))+import Control.Applicative ((<|>), many) import Data.Char (isSpace) import Data.Maybe (mapMaybe) @@ -32,7 +32,7 @@ determineHamletDeps :: FilePath -> IO [FilePath] determineHamletDeps x = do     y <- TIO.readFile x-    let z = A.parse (A.many $ (parser <|> (A.anyChar >> return Nothing))) y+    let z = A.parse (many $ (parser <|> (A.anyChar >> return Nothing))) y     case z of         A.Fail{} -> return []         A.Done _ r -> return $ mapMaybe go r