rename module
This commit is contained in:
parent
f697c41e62
commit
26d95e86d7
8 changed files with 12 additions and 12 deletions
36
Assistant/WebApp/MakeRemote.hs
Normal file
36
Assistant/WebApp/MakeRemote.hs
Normal file
|
@ -0,0 +1,36 @@
|
|||
{- git-annex assistant webapp making remotes
|
||||
-
|
||||
- Copyright 2012 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU AGPL version 3 or higher.
|
||||
-}
|
||||
|
||||
module Assistant.WebApp.MakeRemote (
|
||||
module Assistant.MakeRemote,
|
||||
module Assistant.WebApp.MakeRemote
|
||||
) where
|
||||
|
||||
import Assistant.Common
|
||||
import Assistant.WebApp.Types
|
||||
import Assistant.Sync
|
||||
import qualified Remote
|
||||
import qualified Config
|
||||
import Config.Cost
|
||||
import Types.StandardGroups
|
||||
import Git.Remote
|
||||
import Logs.PreferredContent
|
||||
import Assistant.MakeRemote
|
||||
|
||||
import Utility.Yesod
|
||||
|
||||
{- Runs an action that creates or enables a cloud remote,
|
||||
- and finishes setting it up, then starts syncing with it,
|
||||
- and finishes by displaying the page to edit it. -}
|
||||
setupCloudRemote :: StandardGroup -> Maybe Cost -> Annex RemoteName -> Handler a
|
||||
setupCloudRemote defaultgroup mcost maker = do
|
||||
r <- liftAnnex $ addRemote maker
|
||||
liftAnnex $ do
|
||||
setStandardGroup (Remote.uuid r) defaultgroup
|
||||
maybe noop (Config.setRemoteCost r) mcost
|
||||
liftAssistant $ syncRemote r
|
||||
redirect $ EditNewCloudRepositoryR $ Remote.uuid r
|
Loading…
Add table
Add a link
Reference in a new issue