Make field readonly, not disabled

Working on Windows horriblness all day sure did nice things to my mood,
didn't it?

Assistant/WebApp/Form.hs

@@ -33,6 +33,13 @@ textField = F.textField
 |]
 	}
 
+readonlyTextField :: MkField Text
+readonlyTextField = F.textField
+	{ fieldView = \theId name attrs val _isReq -> [whamlet|
+<input id="#{theId}" name="#{name}" *{attrs} type="text" value="#{either id id val}" readonly="true">
+|]
+	}
+
 {- Also without required attribute. -}
 passwordField :: MkField Text
 passwordField = F.passwordField