Attempt to add the relevant tools to ci

Author: jasagredo

.github/workflows/ci.yml

@@ -138,6 +138,22 @@ jobs:
     - name: Build projects [build]
       run: cabal build all -j
 
+    - name: Install cddlc
+      run: gem install cddlc
+
+    - name: Clone cuddle with validator
+      uses: actions/checkout
+      with:
+        repo: 'input-output-hk/cuddle'
+        ref: 'js/validator'
+        path: 'cuddle'
+
+    - name: Install cuddle
+      run: |
+        ( cd $GITHUB_WORKSPACE/cuddle
+          cabal install --ignore-project exe:cuddle
+        )
+
     - name: Test
       if: matrix.test-set == 'all'
       run: cabal test all -j --test-show-details=streaming

scripts/cbor/unwrap24serialised.hs

@@ -0,0 +1,26 @@
+{- cabal:
+  build-depends: cborg, bytestring, base
+-}
+
+-- | A simple script that unwraps a CBOR term serialized as
+-- CBOR-in-CBOR. It gets input from stdin and emits on stdout.
+--
+-- > cat pre.cbor | cabal run ./scripts/unwrap24serialised.hs > post.cbor
+module Main where
+
+import Prelude hiding (interact)
+import Data.ByteString
+import Codec.CBOR.Term
+import Codec.CBOR.Write
+import Codec.CBOR.Read
+import Data.ByteString.Lazy (fromStrict, toStrict)
+
+main = interact $
+    toStrict
+  . toLazyByteString
+  . encodeTerm
+  . (\(Right (_, t)) -> t)
+  . deserialiseFromBytes decodeTerm
+  . (\(Right (_, TTagged _ (TBytes t))) -> fromStrict t)
+  . deserialiseFromBytes decodeTerm
+  . fromStrict