<<loop>> is already GHC RTS error, tweak a bit

This commit is contained in:
Domen Kožar 2018-09-03 21:17:50 +01:00
parent 7c9211d6e0
commit 4501319e81
No known key found for this signature in database
GPG key ID: C2FFBCAFD2C24246

View file

@ -175,7 +175,7 @@ renderExecFrame level = \case
renderThunkLoop :: (MonadReader e m, Has e Options, MonadFile m)
=> NixLevel -> ThunkLoop -> m [Doc]
renderThunkLoop _level = pure . (:[]) . \case
ThunkLoop Nothing -> text "<<loop>>"
ThunkLoop Nothing -> text "<<thunk loop>>"
ThunkLoop (Just n) ->
text $ "<<loop forcing thunk #" ++ show n ++ ">>"