diff --git a/message-index/messages/GHC-38856/index.md b/message-index/messages/GHC-38856/index.md
new file mode 100644
index 00000000..54553f87
--- /dev/null
+++ b/message-index/messages/GHC-38856/index.md
@@ -0,0 +1,11 @@
+---
+title: A file that doesn't use everything imported from a given module
+summary: One or more explicit imports are unused.
+severity: warning
+flag: -Wunused-imports
+introduced: 9.6.1
+---
+
+One or more explicit imports are unused.
+
+This occurs when an import statement explicitly specifies a mixture of used and unused imports.
diff --git a/message-index/messages/GHC-38856/unused-import/after/UnusedImport.hs b/message-index/messages/GHC-38856/unused-import/after/UnusedImport.hs
new file mode 100644
index 00000000..178fffaa
--- /dev/null
+++ b/message-index/messages/GHC-38856/unused-import/after/UnusedImport.hs
@@ -0,0 +1,6 @@
+module UnusedImport where
+
+import Data.Char (isLower)
+
+a :: Bool
+a = isLower 'c'
diff --git a/message-index/messages/GHC-38856/unused-import/before/UnusedImport.hs b/message-index/messages/GHC-38856/unused-import/before/UnusedImport.hs
new file mode 100644
index 00000000..1b654b3e
--- /dev/null
+++ b/message-index/messages/GHC-38856/unused-import/before/UnusedImport.hs
@@ -0,0 +1,6 @@
+module UnusedImport where
+
+import Data.Char (isDigit, isLower)
+
+a :: Bool
+a = isLower 'c'
diff --git a/message-index/messages/GHC-38856/unused-import/index.md b/message-index/messages/GHC-38856/unused-import/index.md
new file mode 100644
index 00000000..9105475c
--- /dev/null
+++ b/message-index/messages/GHC-38856/unused-import/index.md
@@ -0,0 +1,5 @@
+---
+title: The import of ‘isDigit’ from module ‘Data.Char’ is redundant
+---
+
+In this example, 'isDigit' isn't used in the module. To fix it, you can remove the import.