git.iko.soy/typeable/wai
on master help sign in
attoparsec 0.10
576f703Michael Snoyman
wai-handler-devel/wai-handler-devel.cabal+2−2
compare with master
unifiedsplit
@@ -1,5 +1,5 @@
1Name: wai-handler-devel
1Name: wai-handler-devel
2−Version: 0.4.4
2+Version: 0.4.4.1
3Synopsis: WAI server that automatically reloads code after modification.
3Synopsis: WAI server that automatically reloads code after modification.
4Description: 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.
4Description: 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.
5 .
5 .
@@ -34,7 +34,7 @@ Library
34 , old-time >= 1.0 && < 1.1
34 , old-time >= 1.0 && < 1.1
35 , enumerator >= 0.4.8 && < 0.5
35 , enumerator >= 0.4.8 && < 0.5
36 , transformers >= 0.2.2 && < 0.3
36 , transformers >= 0.2.2 && < 0.3
37− , attoparsec-text >= 0.8.2 && < 0.9
37+ , attoparsec >= 0.10
38 Exposed-modules: Network.Wai.Handler.DevelServer
38 Exposed-modules: Network.Wai.Handler.DevelServer
39 Network.Wai.Application.Devel
39 Network.Wai.Application.Devel
40 ghc-options: -Wall
40 ghc-options: -Wall
wai-handler-devel/wai-handler-devel.hs+2−2
@@ -4,7 +4,7 @@ import Network.Wai.Handler.DevelServer (runQuit)
4import System.Console.CmdArgs
4import System.Console.CmdArgs
5import qualified Data.Attoparsec.Text.Lazy as A
5import qualified Data.Attoparsec.Text.Lazy as A
6import qualified Data.Text.Lazy.IO as TIO
6import qualified Data.Text.Lazy.IO as TIO
7−import Control.Applicative ((<|>))
7+import Control.Applicative ((<|>), many)
8import Data.Char (isSpace)
8import Data.Char (isSpace)
9import Data.Maybe (mapMaybe)
9import Data.Maybe (mapMaybe)
10
10
@@ -32,7 +32,7 @@ data TempType = Hamlet | Cassius | Lucius | Julius | Widget | Verbatim
32determineHamletDeps :: FilePath -> IO [FilePath]
32determineHamletDeps :: FilePath -> IO [FilePath]
33determineHamletDeps x = do
33determineHamletDeps x = do
34 y <- TIO.readFile x
34 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
36 case z of
36 case z of
37 A.Fail{} -> return []
37 A.Fail{} -> return []
38 A.Done _ r -> return $ mapMaybe go r
38 A.Done _ r -> return $ mapMaybe go r