justify doesn't seem to work, but justifyText does

[hyperrealgopher]

Here's some example code (using justifyText) that works:

justify2 :: Text -> Text
justify2 text = Text.pack . unlines $ Justify.justifyText paragraphWidth (unlines wrappedLines)
 where
  paragraphWidth = 60
  wrapSettings = WrapSettings { preserveIndentation = False, breakLongWords = False }
  wrappedLines = map Text.unpack $ wrapTextToLines wrapSettings paragraphWidth text

Here's some example (using justify) code that seems to do nothing:

justify2 :: Text -> Text
justify2 text = Text.pack . unlines $ Justify.justify paragraphWidth wrappedLines
 where
  paragraphWidth = 60
  wrapSettings = WrapSettings { preserveIndentation = False, breakLongWords = False }
  wrappedLines = map Text.unpack $ wrapTextToLines wrapSettings paragraphWidth text

[muesli4]

One thing is perfectly clear: The justification functionality is missing some serious test coverage. I apologize for the inconvenience. I try to get this fixed by tomorrow evening.