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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
