From 6b2246ebd66aca20d670b9407bd7b91e242c17bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Wed, 30 Sep 2015 11:27:19 +0200
Subject: [PATCH] Dead code be gone

---
 Language/Haskell/GhcMod/Internal.hs |  4 ----
 Language/Haskell/GhcMod/Types.hs    | 32 -----------------------------
 2 files changed, 36 deletions(-)

diff --git a/Language/Haskell/GhcMod/Internal.hs b/Language/Haskell/GhcMod/Internal.hs
index 76eb7fb..a743768 100644
--- a/Language/Haskell/GhcMod/Internal.hs
+++ b/Language/Haskell/GhcMod/Internal.hs
@@ -3,10 +3,6 @@
 module Language.Haskell.GhcMod.Internal (
   -- * Types
     GHCOption
-  , Package
-  , PackageBaseName
-  , PackageVersion
-  , PackageId
   , IncludeDir
   , GmlT(..)
   , MonadIO(..)
diff --git a/Language/Haskell/GhcMod/Types.hs b/Language/Haskell/GhcMod/Types.hs
index ec1418d..2892805 100644
--- a/Language/Haskell/GhcMod/Types.hs
+++ b/Language/Haskell/GhcMod/Types.hs
@@ -17,7 +17,6 @@ import Control.Concurrent
 import Control.Monad
 import Data.Serialize
 import Data.Version
-import Data.List (intercalate)
 import Data.Map (Map)
 import qualified Data.Map as Map
 import Data.Set (Set)
@@ -35,7 +34,6 @@ import qualified MonadUtils as GHC (MonadIO(..))
 #endif
 import GHC (ModuleName, moduleNameString, mkModuleName)
 import HscTypes (HscEnv)
-import PackageConfig (PackageConfig)
 import GHC.Generics
 import Text.PrettyPrint (Doc)
 import Prelude
@@ -241,33 +239,6 @@ type GHCOption = String
 -- | An include directory for modules.
 type IncludeDir = FilePath
 
--- | A package name.
-type PackageBaseName = String
-
--- | A package version.
-type PackageVersion = String
-
--- | A package id.
-type PackageId = String
-
--- | A package's name, verson and id.
-type Package = (PackageBaseName, PackageVersion, PackageId)
-
-pkgName :: Package -> PackageBaseName
-pkgName (n, _, _) = n
-
-pkgVer :: Package -> PackageVersion
-pkgVer (_, v, _) = v
-
-pkgId :: Package -> PackageId
-pkgId (_, _, i) = i
-
-showPkg :: Package -> String
-showPkg (n, v, _) = intercalate "-" [n, v]
-
-showPkgId :: Package -> String
-showPkgId (n, v, i) = intercalate "-" [n, v, i]
-
 -- | Haskell expression.
 newtype Expression = Expression { getExpression :: String }
   deriving (Show, Eq, Ord)
@@ -287,9 +258,6 @@ data GmLogLevel =
   | GmVomit
     deriving (Eq, Ord, Enum, Bounded, Show, Read)
 
--- | Collection of packages
-type PkgDb = (Map Package PackageConfig)
-
 data GmModuleGraph = GmModuleGraph {
     gmgGraph :: Map ModulePath (Set ModulePath)
   } deriving (Eq, Ord, Show, Read, Generic, Typeable)