X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Text%2FHtml.hs;h=7db590c3c091b2a238b2461b75414997f227a7f6;hb=ecf3d153674b49adf8ef27d654c8732e7f7fbdd0;hp=2967c399aff83a0a9df0113a6d6536eeb0b1f932;hpb=9fa9bc17072a58c0bae2cce4764d38677e96ac29;p=haskell-directory.git

diff --git a/Text/Html.hs b/Text/Html.hs
index 2967c39..7db590c 100644
--- a/Text/Html.hs
+++ b/Text/Html.hs
@@ -1,16 +1,15 @@
+{-# OPTIONS_GHC -fno-bang-patterns #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Text.Html
--- Copyright   :  (c) Andy Gill, and the Oregon Graduate Institute of 
---		  Science and Technology, 1999-2001
--- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- Copyright   :  (c) Andy Gill and OGI, 1999-2001
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
 -- 
 -- Maintainer  :  Andy Gill <andy@galconn.com>
 -- Stability   :  experimental
 -- Portability :  portable
 --
--- $Id: Html.hs,v 1.2 2002/04/24 16:31:46 simonmar Exp $
---
 -- An Html combinator library
 --
 -----------------------------------------------------------------------------
@@ -442,7 +441,7 @@ frameborder         =   intAttr "FRAMEBORDER"
 height              =   intAttr "HEIGHT"
 href                =   strAttr "HREF"
 hspace              =   intAttr "HSPACE"
-httpequiv           =   strAttr "HTTPEQUIV"
+httpequiv           =   strAttr "HTTP-EQUIV"
 identifier          =   strAttr "ID"
 ismap               = emptyAttr "ISMAP"
 lang                =   strAttr "LANG"
@@ -591,7 +590,7 @@ validHtmlAttrs = [
       "HEIGHT",
       "HREF",
       "HSPACE",
-      "HTTPEQUIV",
+      "HTTP-EQUIV",
       "ID",
       "ISMAP",
       "LANG",