fix build w/o webapp

This commit is contained in:
Joey Hess 2013-10-28 11:24:25 -04:00
parent 577370ea95
commit c0eec83ee5
2 changed files with 7 additions and 6 deletions

View file

@ -26,9 +26,9 @@ import Assistant.DaemonStatus
import Assistant.Types.UrlRenderer
#ifdef WITH_WEBAPP
import Assistant.WebApp.Types
import qualified Data.Text as T
#endif
import qualified Data.Text as T
import Control.Concurrent.Async
{- When the FsckResults require a repair, tries to do a non-destructive
@ -45,8 +45,8 @@ repairWhenNecessary urlrenderer u mrmt fsckresults
button <- mkAlertButton True (T.pack "Click Here") urlrenderer $
RepairRepositoryR u
void $ addAlert $ brokenRepositoryAlert button
return ok
#endif
return ok
| otherwise = return False
runRepair :: UUID -> Maybe Remote -> Bool -> Assistant Bool