wai-handler-devel 0.4.0 → 0.4.2

raw patch · 2 files changed

+7/−4 lines, 2 filesdep ~cmdargsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: cmdargs

API changes (from Hackage documentation)

Files

• wai-handler-devel.cabal +3/−3
• wai-handler-devel.hs +4/−1

@@ -1,5 +1,5 @@ Name:                wai-handler-devel-Version:             0.4.0+Version:             0.4.2 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.                      .@@ -40,11 +40,11 @@   ghc-options:       -Wall  Executable           wai-handler-devel-  Build-Depends:     cmdargs >= 0.4 && < 0.7+  Build-Depends:     cmdargs >= 0.4 && < 0.8   ghc-options:       -Wall -O2 -threaded   main-is:           wai-handler-devel.hs  Executable           wai-handler-devel-unwatched-  Build-Depends:     cmdargs >= 0.4 && < 0.7+  Build-Depends:     cmdargs >= 0.4 && < 0.8   ghc-options:       -Wall -O2 -threaded   main-is:           wai-handler-devel-unwatched.hs

@@ -26,7 +26,7 @@         } &= summary "WAI development web server"     runQuit p m f $ if y then determineHamletDeps else (const $ return []) -data TempType = Hamlet | Cassius | Lucius | Julius | Widget+data TempType = Hamlet | Cassius | Lucius | Julius | Widget | Verbatim     deriving Show  determineHamletDeps :: FilePath -> IO [FilePath]@@ -39,6 +39,7 @@   where     go (Just (Hamlet, f)) = Just $ "hamlet/" ++ f ++ ".hamlet"     go (Just (Widget, f)) = Just $ "hamlet/" ++ f ++ ".hamlet"+    go (Just (Verbatim, f)) = Just f     go _ = Nothing     parser = do         ty <- (A.string "$(hamletFile " >> return Hamlet)@@ -51,6 +52,8 @@            <|> (A.string "$(Settings.luciusFile " >> return Lucius)            <|> (A.string "$(Settings.juliusFile " >> return Julius)            <|> (A.string "$(Settings.widgetFile " >> return Widget)+           <|> (A.string "$(persistFile " >> return Verbatim)+           <|> (A.string "$(parseRoutesFile " >> return Verbatim)         A.skipWhile isSpace         _ <- A.char '"'         y <- A.many1 $ A.satisfy (/= '"')