From 807354f7dc6644fec15dfa1e534c69c14d219628 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Sun, 14 Oct 2018 03:33:38 +0200
Subject: Start refactoring to support cabal v2-build

---
 src/CabalHelper/Compiletime/Types.hs | 29 +++++++++++++++++++++--------
 1 file changed, 21 insertions(+), 8 deletions(-)

(limited to 'src/CabalHelper/Compiletime/Types.hs')

diff --git a/src/CabalHelper/Compiletime/Types.hs b/src/CabalHelper/Compiletime/Types.hs
index 10fe916..843a886 100644
--- a/src/CabalHelper/Compiletime/Types.hs
+++ b/src/CabalHelper/Compiletime/Types.hs
@@ -15,7 +15,8 @@
 -- along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
 {-# LANGUAGE DeriveGeneric, DeriveDataTypeable, DefaultSignatures,
-  KindSignatures, ImplicitParams, ConstraintKinds #-}
+  StandaloneDeriving, GADTs, DataKinds, KindSignatures, ImplicitParams,
+  ConstraintKinds, RankNTypes #-}
 
 {-|
 Module      : CabalHelper.Compiletime.Types
@@ -25,13 +26,25 @@ License     : GPL-3
 
 module CabalHelper.Compiletime.Types where
 
+import Cabal.Plan
+  ( PlanJson )
+import Data.IORef
 import Data.Version
 import Data.Typeable
+import Data.Map.Strict (Map)
 import GHC.Generics
+import System.Posix.Types
+import CabalHelper.Shared.InterfaceTypes
 
-type Env = (?opts :: CompileOptions)
+type Verbose = (?verbose :: Bool)
+type Progs = (?progs :: Programs)
+-- TODO: rname to `CompEnv` or something
+type Env =
+    ( ?verbose :: Bool
+    , ?progs   :: Programs
+    )
 
--- | Paths or names of various programs we need.
+-- | Configurable paths to various programs we use.
 data Programs = Programs {
       -- | The path to the @cabal@ program.
       cabalProgram  :: FilePath,
@@ -44,8 +57,8 @@ data Programs = Programs {
       ghcPkgProgram :: FilePath
     } deriving (Eq, Ord, Show, Read, Generic, Typeable)
 
--- | Default all programs to their unqualified names, i.e. they will be searched
--- for on @PATH@.
+-- | By default all programs use their unqualified names, i.e. they will be
+-- searched for on @PATH@.
 defaultPrograms :: Programs
 defaultPrograms = Programs "cabal" "ghc" "ghc-pkg"
 
@@ -57,13 +70,13 @@ data CompileOptions = CompileOptions
     }
 
 oCabalProgram :: Env => FilePath
-oCabalProgram = cabalProgram $ oPrograms ?opts
+oCabalProgram = cabalProgram ?progs
 
 oGhcProgram :: Env => FilePath
-oGhcProgram = ghcProgram $ oPrograms ?opts
+oGhcProgram = ghcProgram ?progs
 
 oGhcPkgProgram :: Env => FilePath
-oGhcPkgProgram = ghcPkgProgram $ oPrograms ?opts
+oGhcPkgProgram = ghcPkgProgram ?progs
 
 defaultCompileOptions :: CompileOptions
 defaultCompileOptions =
-- 
cgit v1.2.3