rdf4h 1.0.1 → 1.0.2

raw patch · 3 files changed

+10/−5 lines, 3 files

Files

• rdf4h.cabal +1/−1
• src/Data/RDF/Namespace.hs +8/−3
• src/Text/RDF/RDF4H/TurtleSerializer.hs +1/−1

@@ -1,5 +1,5 @@ name:            rdf4h-version:         1.0.1+version:         1.0.2 synopsis:        A library for RDF processing in Haskell description:        'RDF for Haskell' is a library for working with RDF in Haskell.

@@ -10,7 +10,8 @@   mkUri,   prefixOf, uriOf,   -- * Predefined namespace values-  rdf, rdfs, dc, dct, owl, xsd, skos, foaf, ex, ex2, standard_ns_mappings+  rdf, rdfs, dc, dct, owl, xsd, skos, foaf, ex, ex2,+  standard_ns_mappings, ns_mappings ) where @@ -25,8 +26,12 @@  -- |The set of common predefined namespaces as a 'PrefixMappings' value. standard_ns_mappings  :: PrefixMappings-standard_ns_mappings  =  PrefixMappings $ Map.fromList $ -                         map (\(PrefixedNS pre uri) -> (pre, uri)) standard_namespaces+standard_ns_mappings  =  ns_mappings standard_namespaces++-- |Takes a list of 'Namespace's and returns 'PrefixMappings'.+ns_mappings :: [Namespace] -> PrefixMappings+ns_mappings ns =  PrefixMappings $ Map.fromList $ +                     map (\(PrefixedNS pre uri) -> (pre, uri)) ns  -- |The RDF namespace. rdf  :: Namespace

@@ -114,7 +114,7 @@ writeNode :: Handle -> Maybe T.Text -> Node -> Map T.Text T.Text -> IO () writeNode h mdUrl node prefixes =   case node of-    (UNode bs)  -> let currUri = T.reverse bs+    (UNode bs)  -> let currUri = bs                    in case mdUrl of                         Nothing  -> writeUNodeUri h currUri prefixes                         Just url -> if url == currUri then hPutStr h "<>" else writeUNodeUri h currUri prefixes