Update src/Codec/CBOR/Cuddle/CBOR/Gen.hs

Co-authored-by: Alexey Kuleshevich <[email protected]>

Author: Soupstraw

.github/workflows/ci.yml

@@ -72,7 +72,7 @@ jobs:
 
     - name: Install fourmolu
       run: |
-        FOURMOLU_VERSION="0.15.0.0"
+        FOURMOLU_VERSION="0.14.0.0"
         mkdir -p "$HOME/.local/bin"
         curl -sL "https://github.com/fourmolu/fourmolu/releases/download/v${FOURMOLU_VERSION}/fourmolu-${FOURMOLU_VERSION}-linux-x86_64" -o "$HOME/.local/bin/fourmolu"
         chmod a+x "$HOME/.local/bin/fourmolu"

flake.lock

@@ -1,3 +1,3 @@
 {
-  organist = import "/nix/store/fjxrgrx0s69m5vkss5ff1i5akjcx39ss-source/lib/organist.ncl",
+  organist = import "/nix/store/7zrf2b1ysrgrx7613qlmbz71cfyxgyfb-source/lib/organist.ncl",
 }

nickel.lock.ncl

@@ -64,7 +64,6 @@ import System.Random.Stateful (
   Random,
   RandomGen (..),
   StateGenM (..),
-  StatefulGen (..),
   UniformRange (uniformRM),
   randomM,
   uniformByteStringM,
@@ -418,7 +417,7 @@ generateCBORTerm cddl n stdGen =
    in evalGen (genForName n) genEnv genState
 
 generateCBORTerm' ::
-  (RandomGen g, StatefulGen g (M g)) => CTreeRoot' Identity MonoRef -> Name -> g -> (Term, g)
+  RandomGen g => CTreeRoot' Identity MonoRef -> Name -> g -> (Term, g)
 generateCBORTerm' cddl n stdGen =
   let genEnv = GenEnv {cddl}
       genState = GenState {randomSeed = stdGen, depth = 1}

src/Codec/CBOR/Cuddle/CBOR/Gen.hs

@@ -624,7 +624,6 @@ parseExampleWith matches str parser val =
     shouldMatchParseWith matches val parser $
       T.unpack str
 
-
 parseExample :: (Show a, ToExpr a, Eq a) => T.Text -> Parser a -> a -> Spec
 parseExample = parseExampleWith (==)