diff --git a/src/Control/User.hs b/src/Control/User.hs index 61c919c..4bb7285 100644 --- a/src/Control/User.hs +++ b/src/Control/User.hs @@ -163,7 +163,7 @@ userNotify (Just (auid, method)) boughtItems (PurchaseResult flag missing) = do return (purchaseDetailAmount pd, productOverviewIdent overview) ) boughtItems - let messageText = mconcat $ map (<> "\n") $ + let messageText = mconcat $ map (<> ("\n" :: String)) $ [ printf (__ "Hello %s,") (userDetailsIdent userDetails) , "" , printf (__ "Your authentication key with the comment \"%s\"\