diff --git a/src/Vervis/Form/Key.hs b/src/Vervis/Form/Key.hs
index ef0a28b..e27ce01 100644
--- a/src/Vervis/Form/Key.hs
+++ b/src/Vervis/Form/Key.hs
@@ -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