From 764a6b85b686dee3d93e130bd650ee33a985aca2 Mon Sep 17 00:00:00 2001
From: Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>
Date: Mon, 13 Jan 2014 02:16:54 +0000
Subject: Fixes #271

Signed-off-by: Austin Seipp <austin@well-typed.com>
---
 CHANGES                       | 2 ++
 src/Haddock/Backends/Xhtml.hs | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/CHANGES b/CHANGES
index 3e7e8a2f..8793c588 100644
--- a/CHANGES
+++ b/CHANGES
@@ -25,6 +25,8 @@ Changes in version 2.14.0
  * {-# OPTIONS_HADDOCK show-extensions #-} pragma will show the GHC extensions
    enabled in the module.
 
+ * Properly render License field (#271)
+
 Changes in version 2.13.2
 
  * Handle HsExplicitListTy in renamer (#213)
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index 1b6d7fe5..d61478a8 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -203,7 +203,7 @@ moduleInfo iface =
       entries :: [HtmlTable]
       entries = mapMaybe doOneEntry [
           ("Copyright",hmi_copyright),
-          ("License",hmi_copyright),
+          ("License",hmi_license),
           ("Maintainer",hmi_maintainer),
           ("Stability",hmi_stability),
           ("Portability",hmi_portability),
-- 
cgit v1.2.3