Seeded root leaf prep for wire

src/ContentStore.hs

@@ -52,6 +52,8 @@ initContentStore = do
   execute_ conn "CREATE TABLE IF NOT EXISTS merkle_nodes (\
                 \hash TEXT PRIMARY KEY, \
                 \node_data BLOB NOT NULL)"
+  -- Seed canonical Leaf node payload (0x00)
+  putMerkleNode conn NLeaf
   return   conn
 
 getContentStorePath :: IO FilePath
@@ -95,13 +97,11 @@ storeTerm conn newNamesStrList term = do
 -- | Reconstruct a Tree Calculus term from its Merkle root hash.
 --   Recursively loads nodes and rebuilds the T structure.
 loadTree :: Connection -> MerkleHash -> IO (Maybe T)
-loadTree conn h
-  | h == nodeHash NLeaf = return (Just Leaf)  -- NLeaf is implicit, not stored
-  | otherwise = do
-      maybeNode <- getNodeMerkle conn h
-      case maybeNode of
-        Nothing -> return Nothing
-        Just node -> Just <$> buildTree node
+loadTree conn h = do
+  maybeNode <- getNodeMerkle conn h
+  case maybeNode of
+    Nothing -> return Nothing
+    Just node -> Just <$> buildTree node
   where
     buildTree :: Node -> IO T
     buildTree NLeaf = return Leaf
@@ -116,7 +116,9 @@ loadTree conn h
 -- | Store all nodes of a Merkle DAG by traversing the Term and building/storing nodes.
 --   Returns the hash of the root node.
 storeMerkleNodes :: Connection -> T -> IO MerkleHash
-storeMerkleNodes _ Leaf = return $ nodeHash NLeaf
+storeMerkleNodes conn Leaf = do
+  putMerkleNode conn NLeaf
+  return $ nodeHash NLeaf
 storeMerkleNodes conn (Stem t) = do
   childHash <- storeMerkleNodes conn t
   let thisNode = NStem childHash