Zero Warnings Plan

Zero GHC warnings with new opts. General cleanup and updates.

src/ContentStore.hs

@@ -1,7 +1,6 @@
 module ContentStore where
 
 import Research
-import Parser
 
 import Control.Monad                  (foldM, forM_, void)
 import Data.ByteString                (ByteString)
@@ -9,11 +8,9 @@ import Data.List                      (nub, sort)
 import Data.Maybe                     (catMaybes, fromMaybe)
 import Data.Text                      (Text)
 import Database.SQLite.Simple
-import Database.SQLite.Simple.FromRow (FromRow(..), field)
 import System.Directory               (createDirectoryIfMissing, getXdgDirectory, XdgDirectory(..))
 import System.FilePath                ((</>), takeDirectory)
 
-
 import qualified Data.Map             as Map
 import qualified Data.Text            as T
 
@@ -97,6 +94,7 @@ 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
@@ -106,6 +104,7 @@ loadTree conn h
         Just node -> Just <$> buildTree node
   where
     buildTree :: Node -> IO T
+    buildTree NLeaf = return Leaf
     buildTree (NStem childHash) = do
       child <- fromMaybe (errorWithoutStackTrace "BUG: stored hash not found") <$> loadTree conn childHash
       return (Stem child)
@@ -166,7 +165,7 @@ storeEnvironment conn env = do
   let groupedDefs = Map.toList $ Map.fromListWith (++) [(term, [name]) | (name, term) <- defs]
 
   forM_ groupedDefs $ \(term, namesList) -> case namesList of
-    n:ns -> void $ storeTerm conn namesList term
+    _:_ -> void $ storeTerm conn namesList term
     _ -> errorWithoutStackTrace "storeEnvironment: empty names list"
 
 loadTerm :: Connection -> String -> IO (Maybe T)