diff options
author | simonmar <unknown> | 2005-06-15 15:43:21 +0000 |
---|---|---|
committer | simonmar <unknown> | 2005-06-15 15:43:21 +0000 |
commit | 341fa82230672c65e02e01c78dd312ad2cb15ba8 (patch) | |
tree | cd1b9ae54c1b1b0a13737091775c35d2f491780a | |
parent | 00074a687695496c8b2cc4103571d133c19de00e (diff) |
[haddock @ 2005-06-15 15:43:21 by simonmar]
Allow "licence" as an alternate spelling of "license"
-rw-r--r-- | src/HaddockUtil.hs | 7 |
1 files 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 |