From 13d12cabf71548995048a8354663db62f299f849 Mon Sep 17 00:00:00 2001
From: Jens Petersen <petersen@redhat.com>
Date: Wed, 17 Feb 2016 18:36:11 +0900
Subject: [PATCH] Database: prettyName put GHC version in parens

before:  LTS - GHC X.Y
after:   LTS (GHC X.Y)
---
 Stackage/Database.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Stackage/Database.hs b/Stackage/Database.hs
index a6ef073..89728c6 100644
--- a/Stackage/Database.hs
+++ b/Stackage/Database.hs
@@ -470,7 +470,7 @@ snapshotTitle :: Snapshot -> Text
 snapshotTitle s = prettyName (snapshotName s) (snapshotGhc s)
 
 prettyName :: SnapName -> Text -> Text
-prettyName name ghc = concat [prettyNameShort name, " - GHC ", ghc]
+prettyName name ghc = concat [prettyNameShort name, " (GHC ", ghc, ")"]
 
 prettyNameShort :: SnapName -> Text
 prettyNameShort name =