@@ -334,14 +334,10 @@ printRefE pkgs ref = do
334334 qvn <- LV. resolveRef ref
335335 case ref of
336336 (argTy : _, builtin)
337- | builtin
338- == " toPlutusData"
339- || builtin
340- == " fromPlutusData"
341- || builtin
342- == " toJson"
343- || builtin
344- == " fromJson" -> do
337+ | builtin == " toPlutusData"
338+ || builtin == " fromPlutusData"
339+ || builtin == " toJson"
340+ || builtin == " fromJson" -> do
345341 lamTyDoc <- printLamTy pkgs argTy
346342 methodDoc <- R. printRsValName . R. qualifiedEntity <$> LV. importValue qvn
347343 return $ angles lamTyDoc <> R. doubleColon <> methodDoc
@@ -380,13 +376,13 @@ printValueE pkgs iTyDefs (LV.CaseTextE txtVal cases otherCase) = printCaseTextE
380376printValueE pkgs iTyDefs (LV. TupleE l r) = printTupleE pkgs iTyDefs l r
381377printValueE _ _ (LV. ErrorE err) = throwInternalError $ " LamVal error builtin was called " <> err
382378
383- -- | This is a hack, to help Rust figure out types of closures (lambda expressions)
379+ -- | HACK(szg251): This is a hack, to help Rust figure out types of closures (lambda expressions)
384380printInstance :: MonadPrint m => R. PkgMap -> [R. QTyName ] -> PC. TyDefs -> LV. ValueE -> m (Doc ann )
385381printInstance pkgs [] iTyDefs lamVal = printValueE pkgs iTyDefs lamVal
386382printInstance pkgs argTys iTyDefs (LV. LamE lamVal) = printInstanceLamE pkgs argTys iTyDefs lamVal
387383printInstance _ _ _ _ = throwInternalError " LamE expression expected with predefined argument types"
388384
389- -- | This is a hack, to help Rust figure out types of closures (lambda expressions)
385+ -- | HACK(szg251): This is a hack, to help Rust figure out types of closures (lambda expressions)
390386printInstanceLamE :: MonadPrint m => R. PkgMap -> [R. QTyName ] -> PC. TyDefs -> (LV. ValueE -> LV. ValueE ) -> m (Doc ann )
391387printInstanceLamE _ [] _ _ = throwInternalError " LamE expression expected with predefined argument types"
392388printInstanceLamE pkgs (argTy : argTys) iTyDefs lamVal = do
0 commit comments