[commit: xhtml] master: Use Safe Haskell when GHC >= 7.2 (c4247e4)

David Terei davidterei at gmail.com
Thu Sep 1 18:28:45 CEST 2011 

Repository : ssh://darcs.haskell.org//srv/darcs/packages/xhtml

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/c4247e436e25f5f69592165d181156591c4dc0e1

>---------------------------------------------------------------

commit c4247e436e25f5f69592165d181156591c4dc0e1
Author: David Terei <davidterei at gmail.com>
Date:   Wed Aug 3 14:30:08 2011 -0700

    Use Safe Haskell when GHC >= 7.2

>---------------------------------------------------------------

 Text/XHtml.hs                         |    4 ++++
 Text/XHtml/BlockTable.hs              |    4 +++-
 Text/XHtml/Debug.hs                   |    6 ++++++
 Text/XHtml/Extras.hs                  |    4 +++-
 Text/XHtml/Frameset.hs                |    6 +++++-
 Text/XHtml/Frameset/Attributes.hs     |    4 ++++
 Text/XHtml/Frameset/Elements.hs       |    4 ++++
 Text/XHtml/Internals.hs               |    4 ++++
 Text/XHtml/Strict.hs                  |    4 ++++
 Text/XHtml/Strict/Attributes.hs       |    4 ++++
 Text/XHtml/Strict/Elements.hs         |    4 ++++
 Text/XHtml/Table.hs                   |    5 +++++
 Text/XHtml/Transitional.hs            |    4 ++++
 Text/XHtml/Transitional/Attributes.hs |    4 ++++
 Text/XHtml/Transitional/Elements.hs   |    4 ++++
 xhtml.cabal                           |    1 +
 16 files changed, 63 insertions(+), 3 deletions(-)

diff --git a/Text/XHtml.hs b/Text/XHtml.hs
index 31ed6d0..d2afe78 100644
--- a/Text/XHtml.hs
+++ b/Text/XHtml.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Text.XHtml
diff --git a/Text/XHtml/BlockTable.hs b/Text/XHtml/BlockTable.hs
index 1780e52..4defc72 100644
--- a/Text/XHtml/BlockTable.hs
+++ b/Text/XHtml/BlockTable.hs
@@ -1,4 +1,6 @@
--- #hide
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
 
 -----------------------------------------------------------------------------
 -- |
diff --git a/Text/XHtml/Debug.hs b/Text/XHtml/Debug.hs
index baa8073..cfd77d2 100644
--- a/Text/XHtml/Debug.hs
+++ b/Text/XHtml/Debug.hs
@@ -1,3 +1,9 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+{-# OPTIONS_HADDOCK hide #-}
+-- #hide
+
 -- | This module contains functions for displaying
 --   HTML as a pretty tree.
 module Text.XHtml.Debug ( HtmlTree(..), treeHtml, treeColors, debugHtml ) where
diff --git a/Text/XHtml/Extras.hs b/Text/XHtml/Extras.hs
index 379b631..835ca37 100644
--- a/Text/XHtml/Extras.hs
+++ b/Text/XHtml/Extras.hs
@@ -1,4 +1,6 @@
--- #hide
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
 
 module Text.XHtml.Extras where
 
diff --git a/Text/XHtml/Frameset.hs b/Text/XHtml/Frameset.hs
index 22cef1d..befc499 100644
--- a/Text/XHtml/Frameset.hs
+++ b/Text/XHtml/Frameset.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 -- | Produces XHTML 1.0 Frameset.
 module Text.XHtml.Frameset (
      -- * Data types
@@ -50,4 +54,4 @@ renderHtml = renderHtmlInternal docType
 --   The implementation is inefficient, and you are normally
 --   better off using 'showHtml' or 'renderHtml'.
 prettyHtml :: HTML html => html -> String
-prettyHtml = prettyHtmlInternal docType
\ No newline at end of file
+prettyHtml = prettyHtmlInternal docType
diff --git a/Text/XHtml/Frameset/Attributes.hs b/Text/XHtml/Frameset/Attributes.hs
index f55f394..31f7a48 100644
--- a/Text/XHtml/Frameset/Attributes.hs
+++ b/Text/XHtml/Frameset/Attributes.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+{-# OPTIONS_HADDOCK hide #-}
 -- #hide
 
 module Text.XHtml.Frameset.Attributes where
diff --git a/Text/XHtml/Frameset/Elements.hs b/Text/XHtml/Frameset/Elements.hs
index 53999cb..bd9aafb 100644
--- a/Text/XHtml/Frameset/Elements.hs
+++ b/Text/XHtml/Frameset/Elements.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+{-# OPTIONS_HADDOCK hide #-}
 -- #hide
 
 module Text.XHtml.Frameset.Elements where
diff --git a/Text/XHtml/Internals.hs b/Text/XHtml/Internals.hs
index 481c85c..c25ea53 100644
--- a/Text/XHtml/Internals.hs
+++ b/Text/XHtml/Internals.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+{-# OPTIONS_HADDOCK hide #-}
 -- #hide
 
 -----------------------------------------------------------------------------
diff --git a/Text/XHtml/Strict.hs b/Text/XHtml/Strict.hs
index 3616f7e..fdb2a39 100644
--- a/Text/XHtml/Strict.hs
+++ b/Text/XHtml/Strict.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 -- | Produces XHTML 1.0 Strict.
 module Text.XHtml.Strict (
      -- * Data types
diff --git a/Text/XHtml/Strict/Attributes.hs b/Text/XHtml/Strict/Attributes.hs
index f761c2d..4e3cbf1 100644
--- a/Text/XHtml/Strict/Attributes.hs
+++ b/Text/XHtml/Strict/Attributes.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+{-# OPTIONS_HADDOCK hide #-}
 -- #hide
 
 module Text.XHtml.Strict.Attributes where
diff --git a/Text/XHtml/Strict/Elements.hs b/Text/XHtml/Strict/Elements.hs
index c2c1eb0..8220347 100644
--- a/Text/XHtml/Strict/Elements.hs
+++ b/Text/XHtml/Strict/Elements.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+{-# OPTIONS_HADDOCK hide #-}
 -- #hide
 
 module Text.XHtml.Strict.Elements where
diff --git a/Text/XHtml/Table.hs b/Text/XHtml/Table.hs
index c243673..b94b4db 100644
--- a/Text/XHtml/Table.hs
+++ b/Text/XHtml/Table.hs
@@ -1,3 +1,8 @@
+{-# LANGUAGE CPP #-}
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 -- | Table combinators for XHTML.
 module Text.XHtml.Table (HtmlTable, HTMLTABLE(..),
                         (</>), above, (<->), beside, 
diff --git a/Text/XHtml/Transitional.hs b/Text/XHtml/Transitional.hs
index 56ac8b1..71a8bce 100644
--- a/Text/XHtml/Transitional.hs
+++ b/Text/XHtml/Transitional.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+
 -- | Produces XHTML 1.0 Transitional.
 module Text.XHtml.Transitional (
      -- * Data types
diff --git a/Text/XHtml/Transitional/Attributes.hs b/Text/XHtml/Transitional/Attributes.hs
index efe5edc..635562c 100644
--- a/Text/XHtml/Transitional/Attributes.hs
+++ b/Text/XHtml/Transitional/Attributes.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+{-# OPTIONS_HADDOCK hide #-}
 -- #hide
 
 module Text.XHtml.Transitional.Attributes where
diff --git a/Text/XHtml/Transitional/Elements.hs b/Text/XHtml/Transitional/Elements.hs
index 9d27bfe..704674b 100644
--- a/Text/XHtml/Transitional/Elements.hs
+++ b/Text/XHtml/Transitional/Elements.hs
@@ -1,3 +1,7 @@
+#if __GLASGOW_HASKELL__ >= 701
+{-# LANGUAGE Safe #-}
+#endif
+{-# OPTIONS_HADDOCK hide #-}
 -- #hide
 
 module Text.XHtml.Transitional.Elements where
diff --git a/xhtml.cabal b/xhtml.cabal
index f21e7af..e5b6fc4 100644
--- a/xhtml.cabal
+++ b/xhtml.cabal
@@ -31,3 +31,4 @@ Other-modules:
   Text.XHtml.Extras,
   Text.XHtml.Internals
 ghc-options: -O2 -W
+Extensions: CPP

More information about the Cvs-libraries mailing list