Make printType return Text instead of Doc.

IntersectMBO · Jan 18, 2022 · 7833acb · 7833acb
1 parent 3497c20
commit 7833acb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/plutus-core/plutus-core/src/PlutusCore.hs b/plutus-core/plutus-core/src/PlutusCore.hs
@@ -195,14 +195,14 @@ printType :: (AsTypeError
    DefaultFun
    SourcePos,
  MonadQuote f, MonadError err f) =>
- BSL.ByteString -> f (Doc ann)
+ BSL.ByteString -> f T.Text
 printType bs = do
     case runQuoteT $ parseScoped bs of
       Left peb -> pure $ error $ "errorBundlePretty peb"
       Right pro -> do
         config <- getDefTypeCheckConfig topSourcePos
         ty <- inferTypeOfProgram config pro
-        pure $ pretty ty
+        pure $ pack $ show $ pretty ty
 
 
 -- | Parse and rewrite so that names are globally unique, not just unique within