Print.hs

-- SPDX-FileCopyrightText: 2020 Tocqueville Group
--
-- SPDX-License-Identifier: LicenseRef-MIT-TQ

{-# OPTIONS_GHC -Wno-redundant-constraints #-}

-- | Printing lorentz contracts.
module Lorentz.Print
  ( printLorentzValue
  , printLorentzContract
  ) where

import Lorentz.Constraints
import Lorentz.Run
import Michelson.Printer (printTypedContract, printTypedValue)
import Michelson.Typed (toVal)

-- | Pretty-print a Haskell value as Michelson one.
printLorentzValue
  :: forall v.
    (NicePrintedValue v)
  => Bool -> v -> LText
printLorentzValue forceSingleLine =
  withDict (nicePrintedValueEvi @v) $
    printTypedValue forceSingleLine . toVal

-- | Pretty-print a Lorentz contract into Michelson code.
printLorentzContract
  :: forall cp st.
     (NiceParameterFull cp, NiceStorage st)
  => Bool -> Contract cp st -> LText
printLorentzContract forceSingleLine =
  printTypedContract forceSingleLine . compileLorentzContract