X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FResource%2FSearch.hs;fp=Rakka%2FResource%2FSearch.hs;h=7c2acae6ad018f79619a7cc398c27a55d7fb0933;hb=ed0a2de09fc91fbd25c3ee82a722ef88793f2a8f;hp=e4456e878387ef79e5bd414b1fe7c374bc4c8c7e;hpb=ee04fdaabee52dbda76b7368026a251d5f9c884f;p=Rakka.git

diff --git a/Rakka/Resource/Search.hs b/Rakka/Resource/Search.hs
index e4456e8..7c2acae 100644
--- a/Rakka/Resource/Search.hs
+++ b/Rakka/Resource/Search.hs
@@ -77,7 +77,8 @@ handleSearch env
 
          let to' = min (from + length (srPages result)) to
 
-         runIdempotentA $ proc ()
+         BaseURI baseURI <- getSysConf (envSysConf env)
+         runIdempotentA baseURI $ proc ()
              -> do tree <- ( eelem "/"
                              += ( eelem "searchResult"
                                   += sattr "query" query