From cb9736f50b8ba8aa7f2b8132393d70d93da09a36 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 5 Jan 2015 10:46:36 +0200
Subject: [PATCH] Improve styling a bit

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

diff --git a/Handler/Hoogle.hs b/Handler/Hoogle.hs
index e3b85ef..98868f2 100644
--- a/Handler/Hoogle.hs
+++ b/Handler/Hoogle.hs
@@ -35,9 +35,10 @@ getHoogleR slug = do
         Nothing -> (>>= sendResponse) $ defaultLayout $ do
             setTitle "Hoogle database not available"
             [whamlet|
-                <p>The given Hoogle database is not available.
-                <p>
-                    <a href=@{SnapshotR slug StackageHomeR}>Return to snapshot homepage
+                <div .container>
+                    <p>The given Hoogle database is not available.
+                    <p>
+                        <a href=@{SnapshotR slug StackageHomeR}>Return to snapshot homepage
             |]
 
     mresults <- case mquery of