code relocation

[Rakka.git] / Rakka / Storage.hs

diff --git a/Rakka/Storage.hs b/Rakka/Storage.hs
index 945bfd35ca0282c1940e4727d5fd5677f7b63124..55037f03712294efac4ec84c9565b0e8aab62882 100644 (file)
--- a/Rakka/Storage.hs
+++ b/Rakka/Storage.hs
@@ -45,7 +45,7 @@ getPage = ((liftIO .) .) . getPage' . stoRepository
 
 
 putPage :: MonadIO m => Storage -> Page -> RevNum -> m ()
-putPage _sto _page _oldRev
+putPage sto page oldRev
     = error "FIXME: not implemented"