Add comments to "OPTIONS_GHC -fno-warn-orphans" pragmas

diff --git a/Control/Monad/Instances.hs b/Control/Monad/Instances.hs
index ae7ef65..6caf060 100644 (file)
--- a/Control/Monad/Instances.hs
+++ b/Control/Monad/Instances.hs
@@ -1,4 +1,5 @@
 {-# OPTIONS_NHC98 --prelude #-}
+-- This module deliberately declares orphan instances:
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 -----------------------------------------------------------------------------
 -- |

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 90c4c21..18d531a 100644 (file)
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -63,6 +63,8 @@ Other Prelude modules are much easier with fewer complex dependencies.
 
 \begin{code}
 {-# OPTIONS_GHC -XNoImplicitPrelude #-}
+-- -fno-warn-orphans is needed for things like:
+-- Orphan rule: "x# -# x#" ALWAYS forall x# :: Int# -# x# x# = 0
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 {-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------

diff --git a/Text/Show/Functions.hs b/Text/Show/Functions.hs
index 8c76f4a..c66d2e3 100644 (file)
--- a/Text/Show/Functions.hs
+++ b/Text/Show/Functions.hs
@@ -1,3 +1,4 @@
+-- This module deliberately declares orphan instances:
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 -----------------------------------------------------------------------------
 -- |