Fri Nov 30 11:00:21 GMT 2012 Edsko de Vries
* 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
* 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
* 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
* 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
* 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
* 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
