Correct an informational message

This commit is contained in:
John Wiegley 2018-11-24 19:09:28 -08:00 committed by GitHub
parent e0af60ef67
commit f7a370b53f
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -189,4 +189,4 @@ renderNormalLoop :: (MonadReader e m, Has e Options, MonadFile m, MonadVar m)
renderNormalLoop level = fmap (:[]) . \case
NormalLoop v -> do
v' <- renderValue level "" "" v
pure $ "Infinite recursion during normalization forcing " <> v' <> ">>"
pure $ "Infinite recursion during normalization forcing " <> v'