Make field readonly, not disabled

Working on Windows horriblness all day sure did nice things to my mood,
didn't it?
This commit is contained in:
Joey Hess 2013-06-18 17:08:37 -04:00
parent 6ad6301cbd
commit e8827c29c6
2 changed files with 9 additions and 1 deletions

View file

@ -134,7 +134,8 @@ setRepoConfig uuid mremote oldc newc = do
editRepositoryAForm :: Bool -> RepoConfig -> MkAForm RepoConfig
editRepositoryAForm ishere def = RepoConfig
<$> areq textField "Name" (Just $ repoName def)
<$> areq (if ishere then readonlyTextField else textField)
"Name" (Just $ repoName def)
<*> aopt textField "Description" (Just $ repoDescription def)
<*> areq (selectFieldList groups `withNote` help) "Repository group" (Just $ repoGroup def)
<*> associateddirectory