fix build w/o webapp
This commit is contained in:
parent
577370ea95
commit
c0eec83ee5
2 changed files with 7 additions and 6 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue