diff options
Diffstat (limited to 'Utility/Quvi.hs')
-rw-r--r-- | Utility/Quvi.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Utility/Quvi.hs b/Utility/Quvi.hs index 7f73809c0..33653b07b 100644 --- a/Utility/Quvi.hs +++ b/Utility/Quvi.hs @@ -22,6 +22,7 @@ data QuviVersion = Quvi04 | Quvi09 | NoQuvi + deriving (Show) data Page = Page { pageTitle :: String @@ -61,7 +62,8 @@ parseEnum s = Page m = M.fromList $ map (separate (== '=')) $ lines s probeVersion :: IO QuviVersion -probeVersion = examine <$> processTranscript "quvi" ["--version"] Nothing +probeVersion = catchDefaultIO NoQuvi $ + examine <$> processTranscript "quviaaa" ["--version"] Nothing where examine (s, True) | "quvi v0.4" `isInfixOf` s = Quvi04 |