sol/hpack
1
1
Fork 0
mirror of https://github.com/sol/hpack.git synced 2024-10-04 11:47:15 +03:00
Code Issues Projects Releases Wiki Activity

Remove dead code

Browse Source
This commit is contained in:
Simon Hengel 2018-07-18 15:39:18 +08:00
parent 4776f22164
commit 3797a772b7
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Hpack/Syntax/Dependency.hs
View File

@ -1,4 +1,3 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE TypeFamilies #-}
@ -132,24 +131,13 @@ instance FromValue Dependency where
name = o .: "name"
depPkgName :: D.Dependency -> String
#if MIN_VERSION_Cabal(2,0,0)
depPkgName = D.unPackageName . D.depPkgName
#else
depPkgName (D.Dependency (D.PackageName name) _) = name
#endif
depVerRange :: D.Dependency -> D.VersionRange
#if MIN_VERSION_Cabal(2,0,0)
depVerRange = D.depVerRange
#else
depVerRange (D.Dependency _ versionRange) = versionRange
#endif
parseDependency :: Monad m => String -> m (String, DependencyVersion)
parseDependency = liftM fromCabal . parseCabalDependency
where
fromCabal :: D.Dependency -> (String, DependencyVersion)
fromCabal d = (depPkgName d, dependencyVersionFromCabal $ depVerRange d)
fromCabal d = (depPkgName d, dependencyVersionFromCabal $ D.depVerRange d)
dependencyVersionFromCabal :: D.VersionRange -> DependencyVersion
dependencyVersionFromCabal versionRange