factor out common imports
no code changes
This commit is contained in:
parent
003a604a6e
commit
8ef2095fa0
83 changed files with 264 additions and 619 deletions
|
@ -10,21 +10,13 @@ module Remote.Web (
|
|||
setUrl
|
||||
) where
|
||||
|
||||
import Control.Monad.State (liftIO)
|
||||
import Control.Exception
|
||||
import System.FilePath
|
||||
|
||||
import Types
|
||||
import AnnexCommon
|
||||
import Types.Remote
|
||||
import qualified Git
|
||||
import qualified Annex
|
||||
import Messages
|
||||
import UUID
|
||||
import Config
|
||||
import PresenceLog
|
||||
import LocationLog
|
||||
import Locations
|
||||
import Utility
|
||||
import qualified Utility.Url as Url
|
||||
|
||||
type URLString = String
|
||||
|
@ -80,7 +72,7 @@ getUrls key = do
|
|||
{- Records a change in an url for a key. -}
|
||||
setUrl :: Key -> URLString -> LogStatus -> Annex ()
|
||||
setUrl key url status = do
|
||||
g <- Annex.gitRepo
|
||||
g <- gitRepo
|
||||
addLog (urlLog key) =<< logNow status url
|
||||
|
||||
-- update location log to indicate that the web has the key, or not
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue