According to https://hackage.haskell.org/package/base-4.12.0.0/docs/Prelude.html#v:print https://hackage.haskell.org/package/base-4.12.0.0/docs/Prelu... , `prin

According to https://hackage.haskell.org/package/base-4.12.0.0/docs/Prelude.html#v:print https://hackage.haskell.org/package/base-4.12.0.0/docs/Prelu... , `print` already appends a newline, so I think that `print m` is not the same as `putStr $ show m` and hence that the refinements you suggest are unnecessary.