feat(journal): reintroduce more of the happy path in the tj test

platonic-io · Jan 13, 2022 · 9933095 · 9933095
1 parent 6298d8b
commit 9933095
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 6 deletions.
diff --git a/src/journal/src/Journal.hs b/src/journal/src/Journal.hs
@@ -271,9 +271,9 @@ tj = do
       opts = defaultOptions
   allocateJournal fp opts
   jour <- startJournal' fp opts
-  -- Just (five, claimBuf) <- tryClaim jour 5
-  -- print five
-  -- putBS claimBuf (BSChar8.pack "hello")
-  -- commit claimBuf
+  Just (sz, claimBuf) <- tryClaim jour 5
+  putStrLn ("sz: " ++ show sz)
+  putBS claimBuf (BSChar8.pack "hello")
+  commit claimBuf
   dumpMetadata (jMetadata jour)
   return ()
diff --git a/src/journal/src/Journal/Internal/Metrics.hs b/src/journal/src/Journal/Internal/Metrics.hs
@@ -31,8 +31,7 @@ data MetricsSchema c h = MetricsSchema
 -- TODO have a header in the file and check that schema is the same as existing in file?
 newMetrics :: forall c h. (Enum c, Bounded c, Enum h, Bounded h) => MetricsSchema c h -> FilePath -> IO (Metrics c h)
 newMetrics _ fp = do
-  bb <- mmapped fp (sizeOfCounters + sizeOfHistograms) -- mmap seems problematic
-  -- bb <- allocate (sizeOfCounters + sizeOfHistograms)
+  bb <- mmapped fp (sizeOfCounters + sizeOfHistograms)
   cbuf <- wrapPart bb 0 sizeOfCounters
   hbuf <- wrapPart bb sizeOfCounters sizeOfHistograms
   return (Metrics cbuf hbuf)