diff options
author | Daniel Gröber <dxld@darkboxed.org> | 2018-10-10 21:53:11 +0200 |
---|---|---|
committer | Daniel Gröber <dxld@darkboxed.org> | 2018-10-26 04:33:07 +0200 |
commit | ddcbebfa398ce90e561489841e99a5c7732d202f (patch) | |
tree | 392fd2b720395f00f9d4409b97ae8b6f0817ff76 /src/CabalHelper/Runtime/Main.hs | |
parent | c8f1af5397c8a95b6522d44857c146f9aacfc540 (diff) |
Remove unused parameter from componentNameToCh
Diffstat (limited to 'src/CabalHelper/Runtime/Main.hs')
-rw-r--r-- | src/CabalHelper/Runtime/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |