[Fencommits] fenserve: blk: doesn't work with raptor, use blk:/ instead

[Tuukka Hastrup]

Sun Mar 25 18:13:36 EEST 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * blk: doesn't work with raptor, use blk:/ instead
diff -rN -u old-fenserve/FenServe.hs new-fenserve/FenServe.hs
--- old-fenserve/FenServe.hs	2007-03-25 18:14:32.000000000 +0300
+++ new-fenserve/FenServe.hs	2007-03-25 18:14:32.000000000 +0300
@@ -157,13 +157,13 @@
     toMessageBodyM = return
   
 bURI :: BlockId -> String
-bURI (BlockId bid) = "blk:" ++ bid
+bURI (BlockId bid) = "blk:/" ++ bid
   
 bIRI :: BlockId -> Node
 bIRI bid = IRI $ bURI bid
 
 bID :: Node -> BlockId
-bID (IRI ('b':'l':'k':':':s)) = BlockId $ takeWhile (/= '#') s
+bID (IRI ('b':'l':'k':':':'/':s)) = BlockId $ takeWhile (/= '#') s
 bID node = error $ "Not a block IRI: " ++ show node
 
 readGraph :: StormMonad m => BlockId -> m Graph