From 0c5fc7e9ffca48bc77402c9cb61e0d66f525187c Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Fri, 24 Mar 2023 20:49:30 +0300 Subject: [PATCH] devlog --- .fixme/log | 11 ++++++++++- hbs2-git/lib/HBS2Git/App.hs | 4 ---- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/.fixme/log b/.fixme/log index 42140359..563c605d 100644 --- a/.fixme/log +++ b/.fixme/log @@ -353,4 +353,13 @@ fixme-del "HFhJ2y4fFH" (fixme-set "workflow" "test" "5T4mMe2Zeu") fixme-del "2kJWfEmKpa" -(fixme-set "workflow" "backlog" "9twP3eNWSP") \ No newline at end of file +(fixme-set "workflow" "backlog" "9twP3eNWSP") +(fixme-set "workflow" "test" "GpDZYwXkvF") +(fixme-set "assigned" "voidlizard" "GpDZYwXkvF") +(fixme-set "workflow" "test" "5DqpVi3pQG") +(fixme-set "assigned" "voidlizard" "5DqpVi3pQG") + +(fixme-set "assigned" "voidlizard" "3AgRBViozW") +fixme-del "84T1WUTywP" +(fixme-set "workflow" "test" "GkigvXcNL2") +(fixme-set "assigned" "voidlizard" "GkigvXcNL2") \ No newline at end of file diff --git a/hbs2-git/lib/HBS2Git/App.hs b/hbs2-git/lib/HBS2Git/App.hs index fa55536a..a72f7c2f 100644 --- a/hbs2-git/lib/HBS2Git/App.hs +++ b/hbs2-git/lib/HBS2Git/App.hs @@ -347,10 +347,6 @@ storeObjectHttpPut :: (MonadIO m, HasCatAPI m, HasConf m) storeObjectHttpPut meta bs = do - -- TODO: разбить-на-блоки - -- TODO: сохранить-блоки-получить-хэши - -- TODO: записать-merkle-c-метадатой-и-хэшами - let chu = chunks (fromIntegral defBlockSize) bs trace $ length chu