Fix Literal value datatype URI handling

It should be an URI, not a string.

1 files changed, 4 insertions, 4 deletions

diff --git a/Redland/Util.hs b/Redland/Util.hs
index 600cc83..e7ac295 100644
--- a/Redland/Util.hs
+++ b/Redland/Util.hs
@@ -79,10 +79,10 @@ redlandNodeToNode rn = do
       litVal <- nodeGetLiteralValue rn
       litLang <- nodeGetLiteralValueLanguage rn
       litType <- nodeGetLiteralValueDatatypeURI rn
-      let nType = case (litLang, litType) of
-            (Just l, _) -> Just $ LanguageTag l
-            (_, Just t) -> Just $ XMLSchema t
-            _ -> Nothing
+      nType <- case (litLang, litType) of
+        (Just l, _) -> pure $ Just $ LanguageTag l
+        (_, Just t) -> Just . XMLSchema <$> uriAsString t
+        _ -> pure Nothing
       pure $ LiteralNode litVal nType
     _ -> ResourceNode <$> (nodeGetURI rn >>= uriAsString)