1 files changed, 4 insertions, 2 deletions
diff --git a/libraries/ghc-prim/GHC/Magic/Dict.hs b/libraries/ghc-prim/GHC/Magic/Dict.hs
index 34886fee3b..96820a502c 100644
--- a/libraries/ghc-prim/GHC/Magic/Dict.hs
+++ b/libraries/ghc-prim/GHC/Magic/Dict.hs
@@ -29,7 +29,9 @@
 --
 -----------------------------------------------------------------------------
 
-module GHC.Magic.Dict (WithDict(..)) where
+module GHC.Magic.Dict (
+    WithDict( withDict )
+  ) where
 
 import GHC.Types (RuntimeRep, TYPE)
 
@@ -57,4 +59,4 @@ there is nothing that forces the `cls` Wanted from the call to `k` to unify with
 
 That's fine.  But it means we need -XAllowAmbiguousTypes for the withDict definition,
 at least with deep subsumption.
--}
-\ No newline at end of file
+-}