Database: prettyName put GHC version in parens

before:  LTS - GHC X.Y
after:   LTS (GHC X.Y)
This commit is contained in:
Jens Petersen 2016-02-17 18:36:11 +09:00
parent 30896f3663
commit 13d12cabf7

View file

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