import Data.Aeson  (decode)

-- Speedledger is a simple data constructor. data Speedledger = Speedledger Jwk

app/App.hs:38:30: error:
    • Couldn't match type ‘Jwk’
                     with ‘bytestring-0.10.8.2:Data.ByteString.Lazy.Internal.ByteString’
      Expected type: Jwk -> Maybe Jwk
        Actual type: bytestring-0.10.8.2:Data.ByteString.Lazy.Internal.ByteString
                     -> Maybe Jwk
    • In the second argument of ‘(>>=)’, namely ‘decode’
      In the first argument of ‘(<&>)’, namely ‘(slKeyText >>= decode)’
      In the expression:
          (slKeyText >>= decode) <&> Speedledger :: Maybe Speedledger
   |
38 |   let slKey = (slKeyText >>= decode) <&> Speedledger :: Maybe Speedledger