Merge pull request #354 from domenkozar/thunk-loop-msg

<<loop>> is already GHC RTS error, tweak a bit
This commit is contained in:
John Wiegley 2018-09-03 13:20:00 -07:00 committed by GitHub
commit 0019a5fa1a
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

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 ++ ">>"