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 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/CabalHelper')

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
-- 
cgit v1.2.3