mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

type alias cleanup

Browse source
This commit is contained in:
Joey Hess 2011-12-31 04:11:39 -04:00
parent a2ec2d3760
commit 4a02c2ea62
38 changed files with 129 additions and 122 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/Web.hs
View file

@ -15,7 +15,7 @@ import Config
import Logs.Web
import qualified Utility.Url as Url
remote :: RemoteType Annex
remote :: RemoteType
remote = RemoteType {
typename = "web",
enumerate = list,
@ -31,7 +31,7 @@ list = do
r <- liftIO $ Git.Construct.remoteNamed "web" Git.Construct.fromUnknown
return [r]
gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex (Remote Annex)
gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex Remote
gen r _ _ =
return Remote {
uuid = webUUID,