Don't show a trailing dash if a relase version
commitae16e9d0e2b41b54bf04c87010f45325df9e7ad0
authorNiklas Larsson <niklas@mm.st>
dateTue 19 May 2015, 20:50 (11 years ago)
parent9174cf3
src/Idris/REPL.hs+3−1
@@ -1888,7 +1888,9 @@ getPort (_:xs) = getPort xs
18881888opt :: (Opt -> Maybe a) -> [Opt] -> [a]
18891889opt = mapMaybe
18901890
1891−ver = showVersion version ++ "-" ++ gitHash
1891+ver = showVersion version ++ suffix
1892+ where
1893+ suffix = if gitHash =="" then "" else "-" ++ gitHash
18921894
18931895defaultPort :: PortID
18941896defaultPort = PortNumber (fromIntegral 4294)