nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

fix ambiguous type

Browse source
This commit is contained in:
nek0 2021-06-24 06:40:59 +02:00
parent 4285fe685a
commit 11894661d8
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Control/User.hs
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\"\