[Fencommits] fenfire-hs: work around bug in Network.URI.relativeFrom

[Benja Fallenstein]

Wed Mar 21 19:59:41 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * work around bug in Network.URI.relativeFrom
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-03-23 12:26:33.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-03-23 12:26:33.000000000 +0200
@@ -225,7 +225,7 @@
 
 newGraph :: (?uriMaker :: URIMaker) => IO (Graph, Path)
 newGraph = do
-    dftGraph <- liftM IRI newURI; home <- liftM IRI newURI
+    home <- liftM IRI newURI; let dftGraph = IRI "dummy:new-graph"
     let graph = toGraph dftGraph [(home, rdfs_label, Literal "" Plain)]
     return (graph, Path home [])