helper: Make 'version' comand part of the normal parsing logic

1 files changed, 3 insertions, 7 deletions

diff --git a/src/CabalHelper/Runtime/HelperMain.hs b/src/CabalHelper/Runtime/HelperMain.hs
index 5c84cd2..d3feea2 100644
--- a/src/CabalHelper/Runtime/HelperMain.hs
+++ b/src/CabalHelper/Runtime/HelperMain.hs
@@ -295,15 +295,11 @@ helper_main args = do
 
   let cmds = collectCmdOptions args'
 
-  if any (["version"] `isPrefixOf`) cmds
-    then do
-      putStrLn $
-       printf "using version %s of the Cabal library" (display cabalVersion)
-      exitSuccess
-    else return ()
-
   flip mapM cmds $$ \x -> do
   case x of
+    "version":[] ->
+      return $ Just $ ChResponseVersion ("Cabal", toDataVersion cabalVersion)
+
     "package-id":[] ->
       return $ Just $ ChResponseVersion $ (,)
         (display (packageName gpd))