如何在 [maybe string] 上使用 fmap 所以添加的字符串在 Just 之前？

Question

我得到了以下功能：

maybeStrings:: [Maybe String] -> [Maybe String]
maybeStrings s = fmap ("Hello, "++) <$> s

问题是，我怎样才能在 Just 之前得到那个“Hello”？例如，用户给出以下列表：[Just "Simpson"]当前输出为[Just "Hello, Simpson"]. 我希望它是：["Hello, Just Simpson"]。