From e91d57a4655d69b306190506c488450f42391fb3 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Sun, 21 Oct 2018 16:27:22 +0200
Subject: Add package-id unit-query

---
 src/CabalHelper/Runtime/Main.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/CabalHelper/Runtime')

diff --git a/src/CabalHelper/Runtime/Main.hs b/src/CabalHelper/Runtime/Main.hs
index 3a363a3..d0eea1a 100644
--- a/src/CabalHelper/Runtime/Main.hs
+++ b/src/CabalHelper/Runtime/Main.hs
@@ -306,6 +306,11 @@ main = do
 
   print =<< flip mapM cmds $$ \x -> do
   case x of
+    "package-id":[] ->
+      return $ Just $ ChResponseVersion $ (,)
+        (display (packageName gpd))
+        (toDataVersion (packageVersion gpd))
+
     "flags":[] -> do
       return $ Just $ ChResponseFlags $ sort $
         map (flagName' &&& flagDefault) $ genPackageFlags gpd
@@ -344,7 +349,7 @@ main = do
 
     "compiler-version":[] -> do
       let CompilerId comp ver = compilerId $ compiler lbi
-      return $ Just $ ChResponseVersion (show comp) (toDataVersion ver)
+      return $ Just $ ChResponseVersion $ (,) (show comp) (toDataVersion ver)
 
     "package-db-stack":[] -> do
       let
-- 
cgit v1.2.3