yesod 1.1.4 → 1.1.4.1
raw patch · 3 files changed
+11/−7 lines, 3 files
Files
- Devel.hs +9/−5
- main.hs +1/−1
- yesod.cabal +1/−1
Devel.hs view
@@ -29,7 +29,7 @@ takeMVar, tryPutMVar) import qualified Control.Exception as Ex import Control.Monad (unless, void,- when)+ when, forever) import Control.Monad.Trans.State (evalStateT, get) import Control.Monad.IO.Class (liftIO)@@ -121,10 +121,14 @@ reverseProxy :: IO () reverseProxy = withSocketsDo $ do manager <- newManager def- run 3000 $ waiProxyTo- (const $ return $ Right $ ProxyDest "127.0.0.1" 3001)- onExc- manager+ forever $ do+ run 3000 $ waiProxyTo+ (const $ return $ Right $ ProxyDest "127.0.0.1" 3001)+ onExc+ manager+ putStrLn "Reverse proxy stopped, but it shouldn't"+ threadDelay 1000000+ putStrLn "Restarting reverse proxy" where onExc _ _ = return $ responseLBS status200
main.hs view
@@ -137,7 +137,7 @@ <> help "Run COMMAND after rebuild succeeds") <*> optStr ( long "failure-hook" <> short 'f' <> metavar "COMMAND" <> help "Run COMMAND when rebuild fails")- <*> option ( long "event-timeout" <> short 't' <> value (-1) <> metavar "N"+ <*> option ( long "event-timeout" <> short 't' <> value 1 <> metavar "N" <> help "Force rescan of files every N seconds" ) <*> optStr ( long "builddir" <> short 'b' <> help "Set custom cabal build directory, default `dist'")
yesod.cabal view
@@ -1,5 +1,5 @@ name: yesod-version: 1.1.4+version: 1.1.4.1 license: MIT license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>