revert broken change that prevented saving changes to local repo
People who get annoyed at not being able to edit "here" can send me a patch, I don't have time for this nonsense.
This commit is contained in:
parent
9775fad542
commit
f651b87bbd
3 changed files with 3 additions and 9 deletions
|
@ -134,8 +134,7 @@ setRepoConfig uuid mremote oldc newc = do
|
||||||
|
|
||||||
editRepositoryAForm :: Bool -> RepoConfig -> MkAForm RepoConfig
|
editRepositoryAForm :: Bool -> RepoConfig -> MkAForm RepoConfig
|
||||||
editRepositoryAForm ishere def = RepoConfig
|
editRepositoryAForm ishere def = RepoConfig
|
||||||
<$> areq (if ishere then disabledTextField else textField)
|
<$> areq textField "Name" (Just $ repoName def)
|
||||||
"Name" (Just $ repoName def)
|
|
||||||
<*> aopt textField "Description" (Just $ repoDescription def)
|
<*> aopt textField "Description" (Just $ repoDescription def)
|
||||||
<*> areq (selectFieldList groups `withNote` help) "Repository group" (Just $ repoGroup def)
|
<*> areq (selectFieldList groups `withNote` help) "Repository group" (Just $ repoGroup def)
|
||||||
<*> associateddirectory
|
<*> associateddirectory
|
||||||
|
|
|
@ -33,13 +33,6 @@ textField = F.textField
|
||||||
|]
|
|]
|
||||||
}
|
}
|
||||||
|
|
||||||
disabledTextField :: MkField Text
|
|
||||||
disabledTextField = F.textField
|
|
||||||
{ fieldView = \theId name attrs val _isReq -> [whamlet|
|
|
||||||
<input id="#{theId}" name="#{name}" *{attrs} type="text" value="#{either id id val}" disabled="true">
|
|
||||||
|]
|
|
||||||
}
|
|
||||||
|
|
||||||
{- Also without required attribute. -}
|
{- Also without required attribute. -}
|
||||||
passwordField :: MkField Text
|
passwordField :: MkField Text
|
||||||
passwordField = F.passwordField
|
passwordField = F.passwordField
|
||||||
|
|
|
@ -9,3 +9,5 @@ It highlights the (now empty) name field, and says "value is required".
|
||||||
### What version of git-annex are you using? On what operating system?
|
### What version of git-annex are you using? On what operating system?
|
||||||
git-annex version: 4.20130618-g333cb8e
|
git-annex version: 4.20130618-g333cb8e
|
||||||
Ubuntu 13.04
|
Ubuntu 13.04
|
||||||
|
|
||||||
|
> [[fixed|done]] --[[Joey]]
|
||||||
|
|
Loading…
Reference in a new issue