anchor.diff:              ]
           ]
           newBookForm model dispatch
  -    ]+    ]
  
positive.code:         div [ClassName "container"] [
              div [ClassName "row"] [
                  div [ClassName "col-md-8"] [
                      div [ClassName ("form-group has-feedback" + titleStatus)] [
                          yield div [ClassName "input-group"] [
                               yield span [ClassName "input-group-addon"] [span [ClassName "glyphicon glyphicon-pencil"] [] ]
                               yield input [
  
negative.code:                         | Some e -> yield p [ClassName "text-danger"][str e]
                          | _ -> ()
                      ]
                      div [ClassName ("form-group has-feedback " + authorStatus) ] [
                           yield div [ClassName "input-group"][
                               yield span [ClassName "input-group-addon"] [span [ClassName "glyphicon glyphicon-user"] [] ]
                               yield input [ 
  