From cdabe76b22dcadebf7b8e27d56856dbda0d45ebe Mon Sep 17 00:00:00 2001
From: Peter Murphy <26548438+ptrfrncsmrph@users.noreply.github.com>
Date: Wed, 9 Feb 2022 15:10:21 -0500
Subject: [PATCH] Add instance names

---
 CHANGELOG.md                                          | 1 +
 src/Web/HTML/Event/DataTransfer/DataTransferItem.purs | 6 +++---
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index c49d35b..e083ea7 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -9,6 +9,7 @@ Breaking changes:
 New features:
 
 Bugfixes:
+- Added missing type class instance names for `DataTransferItemKind` (#69 by @ptrfrncsmrph)
 
 Other improvements:
 
diff --git a/src/Web/HTML/Event/DataTransfer/DataTransferItem.purs b/src/Web/HTML/Event/DataTransfer/DataTransferItem.purs
index f71bc5f..bdd7479 100644
--- a/src/Web/HTML/Event/DataTransfer/DataTransferItem.purs
+++ b/src/Web/HTML/Event/DataTransfer/DataTransferItem.purs
@@ -18,10 +18,10 @@ import Data.Nullable as Nullable
 
 data DataTransferItemKind = Text | File
 
-derive instance Eq DataTransferItemKind
-derive instance Ord DataTransferItemKind
+derive instance eqDataTransferItemKind :: Eq DataTransferItemKind
+derive instance ordDataTransferItemKind :: Ord DataTransferItemKind
 
-instance Show DataTransferItemKind where
+instance showDataTransferItemKind :: Show DataTransferItemKind where
   show = case _ of
     Text -> "Text"
     File -> "File"