Improve styling a bit

This commit is contained in:
Michael Snoyman 2015-01-05 10:46:36 +02:00
parent a9131a7cdd
commit cb9736f50b

View File

@ -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