anchor.diff:  
   string() ->
       % TODO: generator of valid JSON strings
  -    % for the moment...
  +    % Its not a good generator. Implementation has to be changed
       ?LET(Name,name(),list_to_binary(Name)).
   
   propname() ->
  
positive.code:         %%     A JSON object.
          <<"object">> ->
              P = jsonschema:properties(Schema),
              % TODO: regular expressions for generating properties
              % _PP = jsonschema:patternProperties(Schema),
              {struct, lists:map (fun ({M,S}) ->
  
negative.code: %% @doc This module implements translates an JSON Schema into
  %% an Erlang QuickCheck generator.
  %% @author Ángel Herranz (aherranz@fi.upm.es, Lars-Ake Fredlund (lfredlund@fi.upm.es)
  %% @copyright 2013 Ángel Herranz, Lars-Ake Fredlund, Sergio Gil Luque
  %%
  
  -module(jsongen).
  