Core: Internal: form Base

It is tiny, but it is a start of separation of the Base encodings from hashing subsystem.

Author: Anton-Latukha

hnix-store-core/hnix-store-core.cabal

@@ -35,6 +35,7 @@ library
     , System.Nix.Hash
     , System.Nix.Internal.Base32
     , System.Nix.Internal.Hash
+    , System.Nix.Internal.Base
     , System.Nix.Internal.Nar.Parser
     , System.Nix.Internal.Nar.Streamer
     , System.Nix.Internal.Nar.Effects

hnix-store-core/src/System/Nix/Hash.hs

@@ -13,10 +13,11 @@ module System.Nix.Hash
   , Hash.hashLazy
   , Hash.mkNamedDigest
 
-  , Hash.BaseEncoding(..)
+  , Base.BaseEncoding(..)
   , Hash.encodeInBase
   , Hash.decodeBase
   )
 where
 
 import qualified System.Nix.Internal.Hash      as Hash
+import qualified System.Nix.Internal.Base      as Base

hnix-store-core/src/System/Nix/Internal/Base.hs

@@ -0,0 +1,15 @@
+module System.Nix.Internal.Base
+  ( module System.Nix.Internal.Base
+  , encode
+  , decode
+  )
+where
+
+import System.Nix.Internal.Base32
+
+-- | Constructors to indicate the base encodings
+data BaseEncoding
+  = Base16
+  | Base32
+  -- | ^ Nix has a special map of Base32 encoding
+  | Base64

hnix-store-core/src/System/Nix/Internal/Hash.hs

@@ -34,13 +34,8 @@ import           Data.Word              (Word8)
 import qualified GHC.TypeLits           as Kind
                                         (Nat, KnownNat, natVal)
 import           Data.Coerce            (coerce)
-
--- | Constructors to indicate the base encodings
-data BaseEncoding
-  = Base16
-  | Base32
-  -- | ^ Nix has a special map of Base32 encoding
-  | Base64
+import           System.Nix.Internal.Base
+                                        (BaseEncoding(Base16,Base32,Base64))
 
 -- | The universe of supported hash algorithms.
 --