sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 09:04:50 +09:00
Code Issues Activity

Display SSH key example as a placeholder, not a default value (thanks zPlus!)

Browse source
This commit is contained in:
fr33domlover 2019-10-19 06:35:28 +00:00
parent 339c2253f9
commit e0d7612908
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/Vervis/Form/Key.hs
View file

@ -18,9 +18,7 @@ module Vervis.Form.Key
)
where
import Yesod.Form.Fields
import Yesod.Form.Functions
import Yesod.Form.Types
import Yesod.Form
import Vervis.Field.Key
import Vervis.Foundation
@ -29,14 +27,16 @@ import Vervis.Model.Ident
newKeyAForm :: PersonId -> AForm Handler SshKey
newKeyAForm pid = mk
<$> (text2ky <$> areq (nameField pid) "Name*" Nothing)
<*> areq sshKeyField "Content*" (Just defKey)
<$> (text2ky <$> areq (nameField pid) "Name*" Nothing)
<*> areq sshKeyField keySettings Nothing
where
mk n (a, c) = SshKey n pid a c
keySettings =
FieldSettings
"Content*" Nothing Nothing Nothing [("placeholder", defKey)]
defKey =
( "ssh-rsa"
, "VGhpcyBpcyBub3QgYSBrZXksIHBsZWFzZSBwYXN0ZSBhIHJlYWwgb25lIDopCg=="
)
"ssh-rsa \
\AAAPcyBpcyubQgYBrZkWzZSBwY..."
newKeyForm :: PersonId -> Form SshKey
newKeyForm = renderDivs . newKeyAForm