diff options
author | 2013-10-28 11:24:25 -0400 | |
---|---|---|
committer | 2013-10-28 11:24:25 -0400 | |
commit | 492957c6aca1b34545563a78895978f0a76008e0 (patch) | |
tree | ec1832041a5e625ff47c05b6e70ea453c9432fa0 /Assistant/Alert.hs | |
parent | 7f190b2fcac97b0f87e121ed763557c4d854e8ee (diff) |
fix build w/o webapp
Diffstat (limited to 'Assistant/Alert.hs')
-rw-r--r-- | Assistant/Alert.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index 108bbdf26..ff378a7b0 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -22,12 +22,13 @@ import qualified Data.Text as T import qualified Control.Exception as E #ifdef WITH_WEBAPP -import Assistant.Monad import Assistant.DaemonStatus import Assistant.WebApp.Types -import Assistant.WebApp +import Assistant.WebApp (renderUrl) import Yesod #endif +import Assistant.Monad +import Assistant.Types.UrlRenderer {- Makes a button for an alert that opens a Route. - @@ -181,10 +182,10 @@ showFscking urlrenderer remotename a = do button <- mkAlertButton False (T.pack "Configure") urlrenderer ConfigFsckR r <- alertDuring (fsckAlert button remotename) $ liftIO a - either (liftIO . E.throwIO) return r #else - a + r <- liftIO a #endif + either (liftIO . E.throwIO) return r brokenRepositoryAlert :: AlertButton -> Alert brokenRepositoryAlert = errorAlert "Serious problems have been detected with your repository. This needs your immediate attention!" |