devlog

.fixme/log

@@ -354,3 +354,12 @@ fixme-del "HFhJ2y4fFH"
 (fixme-set "workflow" "test" "5T4mMe2Zeu")
 fixme-del "2kJWfEmKpa"
 (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")

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