Invalid blank node creation when using BNode or bnode

[koslambrou]

Invalid blank node creation when using BNode constructor or bnode function.

Sample code:

  let t1 = Triple (unode "http://example.com/Person123") (unode "http://example.com/relatedTo") (BNode "test")
  let t2 = Triple (unode "http://example.com/Person123") (unode "http://example.com/relatedTo") (bnode "test2")
  let triples = [t1, t2]
  let graph = mkRdf triples Nothing (PrefixMappings Map.empty) :: RDF TList

  let graphFpath = Text.unpack "rdftest.ttl"
  withFile
    graphFpath
    WriteMode
    (\h -> hWriteRdf (TurtleSerializer Nothing (prefixMappings graph)) h graph)

Actual rdftest.ttl file content:

<http://example.com/Person123> <http://example.com/relatedTo> test, test2 .

Expected rdftest.ttl file content:

<http://example.com/Person123> <http://example.com/relatedTo> _:test, _:test2 .

[koslambrou]

Similar issue: #89