[Fencommits] fenfire-hs: fix loadGraph and loading of files

[Tuukka Hastrup]

Sun Mar 18 17:33:17 EET 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * fix loadGraph and loading of files
diff -rN -u old-fenfire-hs/Fenfire.fhs new-fenfire-hs/Fenfire.fhs
--- old-fenfire-hs/Fenfire.fhs	2007-03-18 17:36:08.000000000 +0200
+++ new-fenfire-hs/Fenfire.fhs	2007-03-18 17:36:08.000000000 +0200
@@ -255,11 +255,11 @@
 loadGraph :: FilePath -> IO Graph
 loadGraph fileName = 
     if List.isPrefixOf "http:" fileName
-        then    loadGraph' Raptor.uriToTriples fileName
+        then    loadGraph' (Raptor.uriToTriples fileName) fileName
         else do uri <- Raptor.filenameToURI fileName
-                loadGraph' Raptor.filenameToTriples uri
+                loadGraph' (Raptor.filenameToTriples fileName) uri
     where loadGraph' load' uri = do
-              (triples, namespaces) <- load' uri Nothing
+              (triples, namespaces) <- load' Nothing
               return $ raptorToGraph triples namespaces (takeWhile (/='#') uri)
 
 saveGraph :: Graph -> FilePath -> IO ()