+putPage :: MonadIO m => Storage -> Page -> m StatusCode
+putPage sto page
+ = liftIO $ do st <- putPage' (stoRepository sto) page
+ syncIndex sto
+ return st
+
+
+deletePage :: MonadIO m => Storage -> PageName -> m StatusCode
+deletePage sto name
+ = liftIO $ do st <- deletePage' (stoRepository sto) name
+ syncIndex sto
+ return st