From 11894661d857bb471a74d2092ed2237674de728f Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 24 Jun 2021 06:40:59 +0200 Subject: [PATCH] fix ambiguous type --- src/Control/User.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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\"\