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:
parent
6ad6301cbd
commit
e8827c29c6
2 changed files with 9 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue