example of decoding a MisoString into an Either String Aeson.Value

Main.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import           Miso.String
import qualified Data.Aeson                    as Aeson
import qualified Data.Text.Lazy.Encoding       as E
import qualified Data.Text.Lazy                as TL

main :: IO ()
main = do
  let myMisoString = "{\"a\": 1}" :: MisoString
      myAesonValue =
        Aeson.eitherDecode (E.encodeUtf8 $ TL.fromStrict myMisoString)
  print (myAesonValue :: Either String Aeson.Value)