anchor.diff:  
   create(App) ->
     case new(App) of
  -    NewApp when is_record(NewApp, app) -> 
  +    NewApp when is_record(NewApp, app) ->
         ValidAppWithName = validate_unique_name(NewApp),
         NewApp1 = validate_app(ValidAppWithName),
         save(NewApp1);
  
positive.code: -include ("beehive.hrl").
  -include ("common.hrl").
  
  % DATABASE STUFF
  -export ([
    create/1,
    read/1,
    save/1,
    update/2,
    delete/1,
    find_by_name/1,
    find_all_by_name/1,
    exist/1,
    all/0
  ]).
  
  -export ([
    new/1,
    update_by_name/1,
    restart_by_name/1,
    expand_by_name/1
  ]).
  
  % APPLICATION STUFF
  -export ([
    to_proplist/1,
    build_app_env/2
  ]).
  
  -define (DB, beehive_db_srv).
  
  
negative.code:     _ ->  []
    end.
  
  %% APPLICATION STUFF
  update_by_name(Name) ->
    case find_by_name(Name) of
      not_found -> {error, "Cannot find app to update"};
      App ->
        %% Should this be synchronous or asynchronous?
        NewApp = App#app{updated_at = date_util:now_to_seconds(), latest_error = undefined, revision = undefined},
        ?NOTIFY({app, updated, NewApp}),
        {ok, save(NewApp)}
  