X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FStorage.hs;h=03b8c54134c3a3316e03bb18c57c145b3583d831;hp=d26f713d8f88140a361c13ea98d1e95ba9d38131;hb=e751af5e3d23d7757f363bf4e86f9d732d90be7f;hpb=f7ff1639d50b827a8ce1e4dd3631ce300ecb3d19

diff --git a/Rakka/Storage.hs b/Rakka/Storage.hs
index d26f713..03b8c54 100644
--- a/Rakka/Storage.hs
+++ b/Rakka/Storage.hs
@@ -1,6 +1,10 @@
 module Rakka.Storage
     ( Storage
 
+    -- re-export from Rakka.Storage.Types
+    , SearchResult(..) 
+    , SnippetFragment(..)
+
     , mkStorage -- private
 
     , getPage
@@ -88,7 +92,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