X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FStorage.hs;h=73bc73499b762fdcc3ed1b56f407562e5831c8c7;hb=c80a6d8660e2ed0168329b5a959c84923da177c7;hp=d26f713d8f88140a361c13ea98d1e95ba9d38131;hpb=e85b652169f502cffe1f6f7f927d8990e9c11499;p=Rakka.git

diff --git a/Rakka/Storage.hs b/Rakka/Storage.hs
index d26f713..73bc734 100644
--- a/Rakka/Storage.hs
+++ b/Rakka/Storage.hs
@@ -1,6 +1,11 @@
 module Rakka.Storage
     ( Storage
 
+    -- re-export from Rakka.Storage.Types
+    , SearchResult(..) 
+    , HitPage(..)
+    , SnippetFragment(..)
+
     , mkStorage -- private
 
     , getPage
@@ -88,7 +93,7 @@ getDirContentsA :: ArrowIO a => Storage -> a (PageName, Maybe RevNum) [PageName]
 getDirContentsA = arrIO2 . getDirContents
 
 
-searchPages :: MonadIO m => Storage -> Condition -> m [(PageName, RevNum)]
+searchPages :: MonadIO m => Storage -> Condition -> m SearchResult
 searchPages sto cond
     = liftIO $
       do var <- newEmptyTMVarIO