fix ambiguous type

This commit is contained in:
nek0 2021-06-24 06:40:59 +02:00
parent 4285fe685a
commit 11894661d8

View file

@ -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\"\