git.iko.soy/typeable/wai
on master help sign in
Don't refresh automatically when there's an error
fd59034Michael Snoyman
Network/Wai/Handler/DevelServer.hs+5−3
compare with master
unifiedsplit
@@ -100,9 +100,11 @@ swapApp app mqueue = do
100loadingApp :: Maybe SomeException -> Handler
100loadingApp :: Maybe SomeException -> Handler
101loadingApp err f =
101loadingApp err f =
102 f $ const $ return $ Response status200
102 f $ const $ return $ Response status200
103− [ ("Content-Type", "text/plain")
103+ ( ("Content-Type", "text/plain")
104+ : case err of
104− , ("Refresh", "1")
105+ Nothing -> [("Refresh", "1")]
106+ Just _ -> []
105− ] $ ResponseLBS $ L8.pack $ toMessage err
107+ ) $ ResponseLBS $ L8.pack $ toMessage err
106 where
108 where
107 toMessage Nothing = "Loading code changes, please wait"
109 toMessage Nothing = "Loading code changes, please wait"
108 toMessage (Just err') = "Error loading code: " ++ show err'
110 toMessage (Just err') = "Error loading code: " ++ show err'