Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Setup.hs: better version detection in older hsb2hs.

Browse source 
If it returns an error with input `--version`, recover
gracefully.
This commit is contained in:
John MacFarlane 2015-07-06 13:38:46 -07:00
parent 48cd774714
commit e042f697a4
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Setup.hs
View file

@ -32,6 +32,7 @@ import Data.Version
import System.Process (readProcess)
import Text.ParserCombinators.ReadP (readP_to_S, skipSpaces, eof)
import Control.Monad (when)
import qualified Control.Exception as E
main :: IO ()
main = defaultMainWithHooks $ simpleUserHooks {
@ -44,6 +45,9 @@ main = defaultMainWithHooks $ simpleUserHooks {
findHsb2hsVersion :: Verbosity -> FilePath -> IO (Maybe Version)
findHsb2hsVersion verb fp = do
let handleExitFailure :: IOError -> IO (Maybe Version)
handleExitFailure _ = return Nothing
E.handle handleExitFailure $ do
outp <- readProcess fp ["--version"] ""
case readP_to_S (do v <- parseVersion
skipSpaces