From ddcbebfa398ce90e561489841e99a5c7732d202f Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Wed, 10 Oct 2018 21:53:11 +0200
Subject: Remove unused parameter from componentNameToCh

---
 src/CabalHelper/Runtime/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/CabalHelper/Runtime/Main.hs')

diff --git a/src/CabalHelper/Runtime/Main.hs b/src/CabalHelper/Runtime/Main.hs
index 3c90fbd..ecdbc2a 100644
--- a/src/CabalHelper/Runtime/Main.hs
+++ b/src/CabalHelper/Runtime/Main.hs
@@ -500,9 +500,9 @@ componentsMap lbi _v _distdir f = do
         l' <- readIORef lr
         r <- f c clbi bi
 #if CH_MIN_VERSION_Cabal(2,0,0)
-        writeIORef lr $ (componentNameToCh (unUnitId $ componentUnitId clbi) name, r):l'
+        writeIORef lr $ (componentNameToCh name, r):l'
 #else
-        writeIORef lr $ (componentNameToCh "" name, r):l'
+        writeIORef lr $ (componentNameToCh name, r):l'
 #endif
 
     reverse <$> readIORef lr
-- 
cgit v1.2.3