From ac6047c57d7b2c1ccbea112c0c2bdefcbc2f251d Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Fri, 29 Mar 2019 03:43:19 +0100
Subject: Add accessor for ChModuleName newtype

---
 src/CabalHelper/Shared/InterfaceTypes.hs | 2 +-
 tests/GhcSession.hs                      | 3 ---
 2 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/CabalHelper/Shared/InterfaceTypes.hs b/src/CabalHelper/Shared/InterfaceTypes.hs
index 5cdd98c..37758bc 100644
--- a/src/CabalHelper/Shared/InterfaceTypes.hs
+++ b/src/CabalHelper/Shared/InterfaceTypes.hs
@@ -58,7 +58,7 @@ data ChLibraryName = ChMainLibName
                    | ChSubLibName String
   deriving (Eq, Ord, Read, Show, Generic)
 
-newtype ChModuleName = ChModuleName String
+newtype ChModuleName = ChModuleName { unChModuleName :: String }
     deriving (Eq, Ord, Read, Show, Generic)
 
 data ChComponentInfo = ChComponentInfo
diff --git a/tests/GhcSession.hs b/tests/GhcSession.hs
index 80e9d17..46ccab9 100644
--- a/tests/GhcSession.hs
+++ b/tests/GhcSession.hs
@@ -444,9 +444,6 @@ copyMuliPackageProject srcdir destdir copyPkgExtra = do
       , "--output-directory="++destdir </> pkgdir ]
     copyPkgExtra (srcdir </> pkgdir) (destdir </> pkgdir)
 
-unChModuleName :: ChModuleName -> String
-unChModuleName (ChModuleName  mn) = mn
-
 cabalInstallVersion :: IO Version
 cabalInstallVersion =
     parseVer . trim <$> readProcess "cabal" ["--numeric-version"] ""
-- 
cgit v1.2.3