Add caDecodeFile, Re-export HydraSdk.Internal.Lib.Codec

Author: errfrom

spago.dhall

@@ -27,6 +27,7 @@
   , "newtype"
   , "node-buffer"
   , "node-child-process"
+  , "node-fs"
   , "node-path"
   , "node-streams"
   , "optparse"
@@ -48,5 +49,5 @@
   , "variant"
   ]
 , packages = ./packages.dhall
-, sources = [ "src/**/*.purs", "app/**/*.purs", "test/**/*.purs" ]
+, sources = [ "src/**/*.purs", "test/**/*.purs" ]
 }

src/Internal/Lib/Codec.purs

@@ -3,6 +3,7 @@ module HydraSdk.Internal.Lib.Codec
   , class ToVariantGeneric
   , addressCodec
   , byteArrayCodec
+  , caDecodeFile
   , caDecodeString
   , caEncodeString
   , cborBytesCodec
@@ -79,7 +80,11 @@ import Data.Tuple (Tuple)
 import Data.UInt (fromString, toString) as UInt
 import Data.Variant (Variant)
 import Data.Variant (inj, prj) as Variant
+import Effect (Effect)
 import Foreign.Object (delete, fromHomogeneous, lookup, member, size, union) as Obj
+import Node.Encoding (Encoding(UTF8)) as Encoding
+import Node.FS.Sync (readTextFile) as FSSync
+import Node.Path (FilePath)
 import Partial.Unsafe (unsafePartial)
 import Prim.Row (class Cons) as Row
 import Type.Proxy (Proxy(Proxy))
@@ -191,6 +196,11 @@ fromCaJsonDecodeError = case _ of
   CA.Named name err -> A.Named name $ fromCaJsonDecodeError err
   CA.MissingValue -> A.MissingValue
 
+caDecodeFile :: forall a. CA.JsonCodec a -> FilePath -> Effect (Either CA.JsonDecodeError a)
+caDecodeFile codec =
+  map (caDecodeString codec)
+    <<< FSSync.readTextFile Encoding.UTF8
+
 caDecodeString :: forall a. CA.JsonCodec a -> String -> Either CA.JsonDecodeError a
 caDecodeString codec jsonStr = do
   json <- lmap (const (CA.TypeMismatch "JSON")) $ A.parseJson jsonStr

src/Lib.purs

@@ -0,0 +1,28 @@
+module HydraSdk.Lib
+  ( module ExportCodec
+  ) where
+
+import HydraSdk.Internal.Lib.Codec
+  ( class FromVariantGeneric
+  , class ToVariantGeneric
+  , addressCodec
+  , byteArrayCodec
+  , caDecodeFile
+  , caDecodeString
+  , caEncodeString
+  , cborBytesCodec
+  , dataHashCodec
+  , dateTimeCodec
+  , ed25519KeyHashCodec
+  , fixTaggedSumCodec
+  , fromCaJsonDecodeError
+  , fromVariantGeneric
+  , orefCodec
+  , printOref
+  , readOref
+  , scriptHashCodec
+  , sumGenericCodec
+  , toVariantGeneric
+  , txCodec
+  , txHashCodec
+  ) as ExportCodec