X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Text%2FHtml.hs;h=7db590c3c091b2a238b2461b75414997f227a7f6;hb=30464c0cb915c2ae900909568fa8677bba341e45;hp=cbb1998495ab1d9392e9507d2809dcee233166df;hpb=746ef6a7fd71bb1e9ebe3cd107c5f9f79f3b7a68;p=haskell-directory.git

diff --git a/Text/Html.hs b/Text/Html.hs
index cbb1998..7db590c 100644
--- a/Text/Html.hs
+++ b/Text/Html.hs
@@ -1,9 +1,10 @@
+{-# 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
@@ -440,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"
@@ -589,7 +590,7 @@ validHtmlAttrs = [
       "HEIGHT",
       "HREF",
       "HSPACE",
-      "HTTPEQUIV",
+      "HTTP-EQUIV",
       "ID",
       "ISMAP",
       "LANG",