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:
Joey Hess 2013-06-18 17:02:58 -04:00
parent 9775fad542
commit f651b87bbd
3 changed files with 3 additions and 9 deletions

View file

@ -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

View file

@ -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

View file

@ -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]]