Commits

Doug Burke committed bd068cb

Minor code changes

Comments (0)

Files changed (2)

src/Data/Interned/URI.hs

 
 import Network.URI
 
--- Could look at adding UNPACK statements before each component
+-- Could look at adding UNPACK statements before the Int component
+
+-- | An interned URI. The hashing is based on the
+-- reversed URI (as a string).
 data InternedURI = InternedURI !Int !URI
 
 instance IsString InternedURI where
   identify = InternedURI
 #if MIN_VERSION_intern(0,9,0)
 #else
-  identity (InternedURI i _) = i -- this is not needed in version 0.9 of identify
+  identity (InternedURI i _) = i
 #endif
   cache = iuCache
 

src/Swish/RDF/Graph.hs

 --
 data RDFLabel =
       Res ScopedName                    -- ^ resource
-    | Lit T.Text                        -- ^ a plain literal
-    | LangLit T.Text LanguageTag        -- ^ a literal with an associated language
-    | TypedLit T.Text ScopedName        -- ^ a literal with an associated data type
+    | Lit T.Text                        -- ^ plain literal (<http://www.w3.org/TR/rdf-concepts/#dfn-plain-literal>)
+    | LangLit T.Text LanguageTag        -- ^ plain literal
+    | TypedLit T.Text ScopedName        -- ^ typed literal (<http://www.w3.org/TR/rdf-concepts/#dfn-typed-literal>)
     | Blank String                      -- ^ blank node
     | Var String                        -- ^ variable (not used in ordinary graphs)
     | NoNode                            -- ^ no node  (not used in ordinary graphs)
 canonical form described in section 2.3.1 of
 <http://www.w3.org/TR/2004/REC-xmlschema-2-20041028/#lexical-space>.
   
-Note that this is very similar to
-'Swish.RDF.RDFDatatype.toRDFLabel' and should be moved into
-a @Swish.RDF.Datatype@ module.
+Note that this is similar to
+'Swish.RDF.Datatype.toRDFLabel';
+the code should probably be combined at some point.
 -}
 
 class ToRDFLabel a where
 
  - @xsd:date@ to @Day@
 
-Note that this is very similar to
-'Swish.RDF.RDFDatatype.fromRDFLabel' and should be moved into
-a @Swish.RDF.Datatype@ module.
+Note that this is similar to
+'Swish.RDF.Datatype.fromRDFLabel'; 
+the code should probably be combined at some point.
 -}
 
 class FromRDFLabel a where