hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Dead code be gone

Browse Source
This commit is contained in:
Daniel Gröber 2015-09-30 11:27:19 +02:00
parent 19b3de3569
commit 6b2246ebd6
2 changed files with 0 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Language/Haskell/GhcMod/Internal.hs
View File

@ -3,10 +3,6 @@
module Language.Haskell.GhcMod.Internal ( module Language.Haskell.GhcMod.Internal (
-- * Types -- * Types
GHCOption GHCOption
, Package
, PackageBaseName
, PackageVersion
, PackageId
, IncludeDir , IncludeDir
, GmlT(..) , GmlT(..)
, MonadIO(..) , MonadIO(..)

32
Language/Haskell/GhcMod/Types.hs
View File

@ -17,7 +17,6 @@ import Control.Concurrent
import Control.Monad import Control.Monad
import Data.Serialize import Data.Serialize
import Data.Version import Data.Version
import Data.List (intercalate)
import Data.Map (Map) import Data.Map (Map)
import qualified Data.Map as Map import qualified Data.Map as Map
import Data.Set (Set) import Data.Set (Set)
@ -35,7 +34,6 @@ import qualified MonadUtils as GHC (MonadIO(..))
#endif #endif
import GHC (ModuleName, moduleNameString, mkModuleName) import GHC (ModuleName, moduleNameString, mkModuleName)
import HscTypes (HscEnv) import HscTypes (HscEnv)
import PackageConfig (PackageConfig)
import GHC.Generics import GHC.Generics
import Text.PrettyPrint (Doc) import Text.PrettyPrint (Doc)
import Prelude import Prelude
@ -241,33 +239,6 @@ type GHCOption = String
-- | An include directory for modules. -- | An include directory for modules.
type IncludeDir = FilePath 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. -- | Haskell expression.
newtype Expression = Expression { getExpression :: String } newtype Expression = Expression { getExpression :: String }
deriving (Show, Eq, Ord) deriving (Show, Eq, Ord)
@ -287,9 +258,6 @@ data GmLogLevel =
| GmVomit | GmVomit
deriving (Eq, Ord, Enum, Bounded, Show, Read) deriving (Eq, Ord, Enum, Bounded, Show, Read)
-- | Collection of packages
type PkgDb = (Map Package PackageConfig)
data GmModuleGraph = GmModuleGraph { data GmModuleGraph = GmModuleGraph {
gmgGraph :: Map ModulePath (Set ModulePath) gmgGraph :: Map ModulePath (Set ModulePath)
} deriving (Eq, Ord, Show, Read, Generic, Typeable) } deriving (Eq, Ord, Show, Read, Generic, Typeable)