Arboricx bundle format 1.1

We don't need SHA verification or Merkle dags in our transport bundle. Content
stores can handle both bundle and term verification and hashing.

src/REPL.hs

@@ -6,7 +6,7 @@ import FileEval
 import Lexer ()
 import Parser
 import Research
-import Wire
+import Wire (buildBundle, encodeBundle, importBundle)
 
 import Control.Concurrent (forkIO, threadDelay, killThread, ThreadId)
 import Control.Exception         (SomeException, catch, displayException)
@@ -483,13 +483,20 @@ repl = do
                         _ -> do
                           printError $ "Ambiguous match for: " ++ cleanHash
                           return h
-                bundleData <- liftIO $ exportBundle conn [hash]
-                liftIO $ BL.writeFile outFile (BL.fromStrict bundleData)
-                liftIO $ do
-                  printSuccess $ "Exported bundle with root "
-                  displayColoredHash hash
-                  putStrLn $ " to " ++ outFile
-                loop state
+                maybeTree <- liftIO $ loadTree conn hash
+                case maybeTree of
+                  Nothing -> do
+                    liftIO $ printError $ "Term not found in store: " ++ T.unpack hash
+                    loop state
+                  Just tree -> do
+                    let bundle = buildBundle [(T.pack "root", tree)]
+                        bundleData = encodeBundle bundle
+                    liftIO $ BL.writeFile outFile (BL.fromStrict bundleData)
+                    liftIO $ do
+                      printSuccess $ "Exported bundle with root "
+                      displayColoredHash hash
+                      putStrLn $ " to " ++ outFile
+                    loop state
 
     handleBundleImport :: REPLState -> InputT IO ()
     handleBundleImport state = do