Fri Nov 30 11:00:21 GMT 2012 Edsko de Vries <ed...@well-typed.com> * Deal with restoring blobs generically Ignore-this: 28e695ea22637a21c1cf1af019df53e
M ./Distribution/Server.hs -1 +2 M ./Distribution/Server/Features/BuildReports/Backup.hs -6 +9 M ./Distribution/Server/Features/Core/Backup.hs -17 +27 M ./Distribution/Server/Features/Distro/Backup.hs -4 +4 M ./Distribution/Server/Features/Documentation.hs -7 +6 M ./Distribution/Server/Features/DownloadCount/Backup.hs -2 +2 M ./Distribution/Server/Features/Tags/Backup.hs -1 +1 M ./Distribution/Server/Features/Upload/Backup.hs -2 +2 M ./Distribution/Server/Framework/BackupDump.hs -10 +27 M ./Distribution/Server/Framework/BackupRestore.hs -41 +105 M ./Distribution/Server/Users/Backup.hs -2 +2 M ./Main.hs -2 +4 Fri Nov 30 11:24:28 GMT 2012 Edsko de Vries <ed...@well-typed.com> * Use pure restore for download counts Ignore-this: 72ea2c139f2222f8d9bea49d52991630 M ./Distribution/Server/Features/DownloadCount/Backup.hs -19 +19 Fri Nov 30 16:02:21 GMT 2012 Edsko de Vries <ed...@well-typed.com> * Convert Core to use pure restore Ignore-this: a8596305889a168ac5304aa45a99772d In order to do this, define a Restore monad as follows: data Restore :: * -> * where RestoreDone :: forall a. a -> Restore a RestoreBind :: Restore a -> (a -> Restore b) -> Restore b RestoreFail :: forall a. String -> Restore a RestoreAddBlob :: ByteString -> Restore BlobId RestoreGetBlob :: BlobId -> Restore ByteString We could execute this in QuickCheck against a "fake" blob store (list of pairs of blob IDs and bytestrings) if we wish. M ./Distribution/Server/Features/Core/Backup.hs -92 +87 M ./Distribution/Server/Features/DownloadCount.hs -6 +6 M ./Distribution/Server/Features/DownloadCount/Backup.hs -5 +6 M ./Distribution/Server/Features/Tags.hs -6 +6 M ./Distribution/Server/Features/Tags/Backup.hs -7 +8 M ./Distribution/Server/Framework/BackupRestore.hs -15 +56 Fri Nov 30 16:25:14 GMT 2012 Edsko de Vries <ed...@well-typed.com> * Pure import for package maintainers Ignore-this: 9addb4e824c8e8754f5145ba167a44c0 M ./Distribution/Server/Features/Upload.hs -6 +6 M ./Distribution/Server/Features/Upload/Backup.hs -22 +25 Fri Nov 30 16:48:02 GMT 2012 Edsko de Vries <ed...@well-typed.com> * Update Documentation to use pure restore Ignore-this: 6f709e6e99abc08e14d36ccab1524d34 M ./Distribution/Server/Features/Documentation.hs -19 +25 M ./Distribution/Server/Util/ServeTarball.hs -5 +12 Fri Nov 30 17:35:51 GMT 2012 Edsko de Vries <ed...@well-typed.com> * Use pure import for Distro Ignore-this: d142a8b576a751c8351c27f9508b54bf M ./Distribution/Server/Features/Distro.hs -6 +6 M ./Distribution/Server/Features/Distro/Backup.hs -62 +49 _______________________________________________ cabal-devel mailing list cabal-devel@haskell.org http://www.haskell.org/mailman/listinfo/cabal-devel