From 341fa82230672c65e02e01c78dd312ad2cb15ba8 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 15 Jun 2005 15:43:21 +0000
Subject: [haddock @ 2005-06-15 15:43:21 by simonmar] Allow "licence" as an
 alternate spelling of "license"

---
 src/HaddockUtil.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs
index 965858c5..f2d6d710 100644
--- a/src/HaddockUtil.hs
+++ b/src/HaddockUtil.hs
@@ -208,9 +208,10 @@ parseModuleHeader str0 =
       (descriptionOpt,str2) = getKey "Description" str1
       (copyrightOpt,str3) = getKey "Copyright" str2
       (licenseOpt,str4) = getKey "License" str3
-      (maintainerOpt,str5) = getKey "Maintainer" str4
-      (stabilityOpt,str6) = getKey "Stability" str5
-      (portabilityOpt,str7) = getKey "Portability" str6
+      (licenceOpt,str5) = getKey "Licence" str4
+      (maintainerOpt,str6) = getKey "Maintainer" str5
+      (stabilityOpt,str7) = getKey "Stability" str6
+      (portabilityOpt,str8) = getKey "Portability" str7
 
       description1 :: Either String (Maybe Doc)
       description1 = case descriptionOpt of
-- 
cgit v1.2.3