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) return (purchaseDetailAmount pd, productOverviewIdent overview)
) )
boughtItems boughtItems
let messageText = mconcat $ map (<> "\n") $ let messageText = mconcat $ map (<> ("\n" :: String)) $
[ printf (__ "Hello %s,") (userDetailsIdent userDetails) [ printf (__ "Hello %s,") (userDetailsIdent userDetails)
, "" , ""
, printf (__ "Your authentication key with the comment \"%s\"\ , printf (__ "Your authentication key with the comment \"%s\"\