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/Compat.hs | |
parent | c8f1af5397c8a95b6522d44857c146f9aacfc540 (diff) |
Remove unused parameter from componentNameToCh
Diffstat (limited to 'src/CabalHelper/Runtime/Compat.hs')
-rw-r--r-- | src/CabalHelper/Runtime/Compat.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/CabalHelper/Runtime/Compat.hs b/src/CabalHelper/Runtime/Compat.hs index c1bb3b3..cafbfc3 100644 --- a/src/CabalHelper/Runtime/Compat.hs +++ b/src/CabalHelper/Runtime/Compat.hs @@ -150,15 +150,15 @@ type UnitId = InstalledPackageId -componentNameToCh :: a -> ComponentName -> ChComponentName -componentNameToCh _ CLibName = ChLibName +componentNameToCh :: ComponentName -> ChComponentName +componentNameToCh CLibName = ChLibName #if CH_MIN_VERSION_Cabal(2,0,0) -componentNameToCh _ (CSubLibName n) = ChSubLibName (unUnqualComponentName' n) -componentNameToCh _ (CFLibName n) = ChFLibName (unUnqualComponentName' n) +componentNameToCh (CSubLibName n) = ChSubLibName (unUnqualComponentName' n) +componentNameToCh (CFLibName n) = ChFLibName (unUnqualComponentName' n) #endif -componentNameToCh _ (CExeName n) = ChExeName (unUnqualComponentName' n) -componentNameToCh _ (CTestName n) = ChTestName (unUnqualComponentName' n) -componentNameToCh _ (CBenchName n) = ChBenchName (unUnqualComponentName' n) +componentNameToCh (CExeName n) = ChExeName (unUnqualComponentName' n) +componentNameToCh (CTestName n) = ChTestName (unUnqualComponentName' n) +componentNameToCh (CBenchName n) = ChBenchName (unUnqualComponentName' n) #if CH_MIN_VERSION_Cabal(1,25,0) |