576f703 · typeable/wai

git.iko.soy/typeable/wai

attoparsec 0.10

commit576f70375c163395bbe48132f6e6b7199addba3d authorMichael Snoyman <michael@snoyman.com> dateMon 28 Nov 2011, 19:46 (15 years ago) parent0e4f4d6

2 files changed+4−4

compare with master

unifiedsplit

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

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

@@ -1,5 +1,5 @@

11Name: wai-handler-devel

2−Version: 0.4.4

2+Version: 0.4.4.1

33Synopsis: WAI server that automatically reloads code after modification.

44Description: 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.

55 .

@@ -34,7 +34,7 @@ Library

3434 , old-time >= 1.0 && < 1.1

3535 , enumerator >= 0.4.8 && < 0.5

3636 , transformers >= 0.2.2 && < 0.3

37− , attoparsec-text >= 0.8.2 && < 0.9

37+ , attoparsec >= 0.10

3838 Exposed-modules: Network.Wai.Handler.DevelServer

3939 Network.Wai.Application.Devel

4040 ghc-options: -Wall

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

@@ -4,7 +4,7 @@ import Network.Wai.Handler.DevelServer (runQuit)

44import System.Console.CmdArgs

55import qualified Data.Attoparsec.Text.Lazy as A

66import qualified Data.Text.Lazy.IO as TIO

7−import Control.Applicative ((<|>))

7+import Control.Applicative ((<|>), many)

88import Data.Char (isSpace)

99import Data.Maybe (mapMaybe)

1010

3232determineHamletDeps :: FilePath -> IO [FilePath]

3333determineHamletDeps x = do

3434 y <- TIO.readFile x

35− let z = A.parse (A.many $ (parser <|> (A.anyChar >> return Nothing))) y

35+ let z = A.parse (many $ (parser <|> (A.anyChar >> return Nothing))) y

3636 case z of

3737 A.Fail{} -> return []

3838 A.Done _ r -> return $ mapMaybe go r