From f7dde0a8e0bcd80eaa6cc21df59ca4575f8ca599 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Sun, 14 Dec 2014 20:41:17 +0100
Subject: [PATCH] Add synopsis to package page

---
 Handler/Package.hs       | 3 ++-
 templates/package.hamlet | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Handler/Package.hs b/Handler/Package.hs
index ee6446f..934f191 100644
--- a/Handler/Package.hs
+++ b/Handler/Package.hs
@@ -89,7 +89,8 @@ getPackageR pn = do
                        then "You liked this!"
                        else "I like this!" :: Text
 
-    let deps = enumerate (metadataDeps metadata)
+    let synopsis = metadataSynopsis metadata
+        deps = enumerate (metadataDeps metadata)
         revdeps = enumerate revdeps'
         authors = enumerate (parseIdentitiesLiberally (metadataAuthor metadata))
         maintainers = let ms = enumerate (parseIdentitiesLiberally (metadataMaintainer metadata))
diff --git a/templates/package.hamlet b/templates/package.hamlet
index a69e65a..b2ad27d 100644
--- a/templates/package.hamlet
+++ b/templates/package.hamlet
@@ -6,6 +6,8 @@ $newline never
                #{pn} #
                <span .latest-version>
                  #{metadataVersion metadata} #
+            <p .synopsis>
+                #{synopsis}
             $forall (i,(version, title, slug, hasHaddocks)) <- packages
                $if i /= 0
                  , #