From f40e568f2be06b9254b8b5a956319c6eafd13997 Mon Sep 17 00:00:00 2001 From: Alan Zimmerman Date: Wed, 13 Dec 2017 23:00:21 +0200 Subject: Bring in needsBuildOuput query, for indefinite modules --- src/CabalHelper/Shared/InterfaceTypes.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'src/CabalHelper/Shared') diff --git a/src/CabalHelper/Shared/InterfaceTypes.hs b/src/CabalHelper/Shared/InterfaceTypes.hs index bf61bb7..2f2e6a3 100644 --- a/src/CabalHelper/Shared/InterfaceTypes.hs +++ b/src/CabalHelper/Shared/InterfaceTypes.hs @@ -37,6 +37,7 @@ import Data.Version data ChResponse = ChResponseCompList [(ChComponentName, [String])] | ChResponseEntrypoints [(ChComponentName, ChEntrypoint)] + | ChResponseNeedsBuild [(ChComponentName, NeedsBuildOutput)] | ChResponseList [String] | ChResponsePkgDbs [ChPkgDb] | ChResponseLbi String @@ -47,15 +48,11 @@ data ChResponse data ChComponentName = ChSetupHsName | ChLibName - | ChSubLibName String ChUnitId - | ChFLibName String ChUnitId - | ChExeName String ChUnitId - | ChTestName String ChUnitId - | ChBenchName String ChUnitId - deriving (Eq, Ord, Read, Show, Generic) - -data ChUnitId = ChNoUnitId - | ChUnitId String + | ChSubLibName String + | ChFLibName String + | ChExeName String + | ChTestName String + | ChBenchName String deriving (Eq, Ord, Read, Show, Generic) newtype ChModuleName = ChModuleName String @@ -78,3 +75,6 @@ data ChPkgDb = ChPkgGlobal | ChPkgUser | ChPkgSpecific FilePath deriving (Eq, Ord, Read, Show, Generic) + +data NeedsBuildOutput = ProduceBuildOutput | NoBuildOutput + deriving (Eq, Ord, Read, Show, Generic) -- cgit v1.2.3