Difficulty debugging freeze on Plutus.Contract.currentTime

[emiflake]

Area

• Plutus Foundation Related to the GHC plugin, Haskell-to-Plutus compiler, on-chain code
• Plutus Application Framework Related to the Plutus application backend (PAB), emulator, Plutus libraries
• Marlowe Related to Marlowe
• Other Any other topic (Playgrounds, etc.)

Summary

Plutus.Contract.currentTime doesn't seem to yield. Locks up forever. Maybe I'm using it wrong? Note that currentSlot doesn't exhibit this behavior, it succesfully returns a slot.

Steps to reproduce

Call currentTime in any contract.

contract :: forall eff. Contract () eff ContractError ()
contract =
  logInfo =<< currentTime

Here's a gist that reproduces it fully

Expected behavior

We should get a POSIXTime returned, and it should log it out.

Actual behavior

It locks up indefinitely.

System info (please complete the following information):

• OS: NixOS 21.05
• Plutus commit: a937480

[luigy]

Thanks for the gist I was able to also repro on a more recent master a2ce648 and put up a fix