[Fencommits] fenfire-hs: don't consider the graph uri an explicit start node

[Tuukka Hastrup]

Wed Mar 28 00:53:01 EEST 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * don't consider the graph uri an explicit start node
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-03-28 00:54:03.000000000 +0300
+++ new-fenfire-hs/Fenfire.fhs	2007-03-28 00:54:03.000000000 +0300
@@ -231,8 +231,9 @@
     return (graph, Path home [])
     
 findStartPath :: (?vs :: ViewSettings) => Maybe String -> Graph -> Path
-findStartPath (Just uri) g = let ?graph = g in toPath' $ Rotation (IRI uri) 0
-findStartPath Nothing g = let ?graph = g in result where
+findStartPath (Just uri) g | defaultGraph g /= IRI uri = let ?graph = g in 
+    toPath' $ Rotation (IRI uri) 0
+findStartPath _ g = let ?graph = g in result where
     result :: (?graph :: Graph) => Path
     result = head $ catMaybes $ [startNode,topic,document] where