Full Merkle tree resolution

src/Eval.hs

@@ -113,13 +113,7 @@ resolveTermFromStore conn selectedVersions name mhash = case mhash of
       [(_, term, _)] -> return $ Just term
       _ -> return Nothing -- Ambiguous or too many matches
   Nothing -> case Map.lookup name selectedVersions of
-    Just hash -> do
-      mterm <- hashToTerm conn hash
-      case mterm of
-        Just term -> case deserializeTerm (termData term) of
-          Right t -> return $ Just t
-          Left _ -> return Nothing
-        Nothing -> return Nothing
+    Just hash -> loadTree conn hash
     Nothing -> do
       versions <- termVersions conn name
       case versions of