@@ -100,9 +100,11 @@ swapApp app mqueue = do
100100loadingApp :: Maybe SomeException -> Handler
101101loadingApp err f =
102102 f $ const $ return $ Response status200
103− [ ("Content-Type", "text/plain")
104− , ("Refresh", "1")
105− ] $ ResponseLBS $ L8.pack $ toMessage err
103+ ( ("Content-Type", "text/plain")
104+ : case err of
105+ Nothing -> [("Refresh", "1")]
106+ Just _ -> []
107+ ) $ ResponseLBS $ L8.pack $ toMessage err
106108 where
107109 toMessage Nothing = "Loading code changes, please wait"
108110 toMessage (Just err') = "Error loading code: " ++ show err'