From: Ian Lynagh <igloo@earth.li>
Date: Sat, 5 Dec 2009 16:58:54 +0000 (+0000)
Subject: Add comments to "OPTIONS_GHC -fno-warn-orphans" pragmas
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=205722095450a487f2d5a7133d0802f2cc2ee856;p=ghc-base.git

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
--- 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
--- 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
--- 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 #-}
 -----------------------------------------------------------------------------
 -- |