Arborix -> Arboricx rename

src/Server.hs

@@ -23,7 +23,7 @@ import Data.ByteString.Char8 (unpack)
 import Data.ByteString.Lazy (fromStrict)
 import qualified Data.Text as T
 
--- | Start an HTTP server that serves Arborix bundles from the
+-- | Start an HTTP server that serves Arboricx bundles from the
 --   local content store.
 --
 -- This is a read-only export surface.  Clients fetch bundle bytes
@@ -133,10 +133,10 @@ rootsHandler request respond = do
     (fromStrict bundleData)
 
 -- | GET /bundle/name/:name
---   Resolve a stored term name, export it as an Arborix bundle,
+--   Resolve a stored term name, export it as an Arboricx bundle,
 --   and return the raw bundle bytes.
 --
---   Sets @Content-Type@ and @X-Arborix-Root-Hash@ headers.
+--   Sets @Content-Type@ and @X-Arboricx-Root-Hash@ headers.
 --   Returns 404 when the name does not resolve to any stored term.
 nameHandler :: Text -> IO Response
 nameHandler nameText = do
@@ -155,7 +155,7 @@ nameHandler nameText = do
       return $ responseLBS status200 (bundleHeaders th cd) (fromStrict bundleData)
 
 -- | GET /bundle/hash/:hash
---   Resolve a full Merkle hash and export the root as an Arborix
+--   Resolve a full Merkle hash and export the root as an Arboricx
 --   bundle.
 --
 --   - Malformed hash (non-hex or < 16 chars): 400
@@ -207,8 +207,8 @@ textResponse status body =
 
 bundleHeaders :: Text -> Text -> [Header]
 bundleHeaders root cd =
-  [ (hContentType, encodeUtf8 "application/vnd.arborix.bundle")
-  , ("X-Arborix-Root-Hash", encodeUtf8 root)
+  [ (hContentType, encodeUtf8 "application/vnd.arboricx.bundle")
+  , ("X-Arboricx-Root-Hash", encodeUtf8 root)
   , ("Content-Disposition", encodeUtf8 cd)
   ]