[Fencommits] fenfire-hs: scope loadGraph' within loadGraph

[Tuukka Hastrup]

Sun Mar 18 16:05:08 EET 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * scope loadGraph' within loadGraph
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-03-18 16:05:37.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-03-18 16:05:37.000000000 +0200
@@ -258,10 +258,9 @@
         then    loadGraph' Raptor.uriToTriples fileName
         else do uri <- Raptor.filenameToURI fileName
                 loadGraph' Raptor.filenameToTriples uri
-
-loadGraph' load' uri = do
-    (raptorTriples, namespaces) <- load' uri Nothing
-    return $ raptorToGraph raptorTriples namespaces (takeWhile (/= '#') uri)
+    where loadGraph' load' uri = do
+              (triples, namespaces) <- load' uri Nothing
+              return $ raptorToGraph triples namespaces (takeWhile (/='#') uri)
 
 saveGraph :: Graph -> FilePath -> IO ()
 saveGraph graph fileName = do