add git fsck to cronner, and UI for repository repair (not yet wired up)
This commit is contained in:
parent
44bb9a808f
commit
d345e5b52f
12 changed files with 163 additions and 18 deletions
26
Assistant/WebApp/Repair.hs
Normal file
26
Assistant/WebApp/Repair.hs
Normal file
|
@ -0,0 +1,26 @@
|
|||
{- git-annex assistant repository repair
|
||||
-
|
||||
- Copyright 2013 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU AGPL version 3 or higher.
|
||||
-}
|
||||
|
||||
{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings #-}
|
||||
|
||||
module Assistant.WebApp.Repair where
|
||||
|
||||
import Assistant.WebApp.Common
|
||||
import Remote (prettyUUID)
|
||||
|
||||
getRepairRepositoryR :: UUID -> Handler Html
|
||||
getRepairRepositoryR = postRepairRepositoryR
|
||||
postRepairRepositoryR :: UUID -> Handler Html
|
||||
postRepairRepositoryR u = page "Repair repository" Nothing $ do
|
||||
repodesc <- liftAnnex $ prettyUUID u
|
||||
$(widgetFile "control/repairrepository")
|
||||
|
||||
getRepairRepositoryRunR :: UUID -> Handler Html
|
||||
getRepairRepositoryRunR = postRepairRepositoryR
|
||||
postRepairRepositoryRunR :: UUID -> Handler Html
|
||||
postRepairRepositoryRunR u = page "Repair repository" Nothing $ do
|
||||
$(widgetFile "control/repairrepository/run")
|
Loading…
Add table
Add a link
Reference in a new issue