diff options
| -rw-r--r-- | src/CabalHelper/Compiletime/Compile.hs | 3 | ||||
| -rw-r--r-- | src/CabalHelper/Shared/Common.hs | 4 |
2 files changed, 4 insertions, 3 deletions
diff --git a/src/CabalHelper/Compiletime/Compile.hs b/src/CabalHelper/Compiletime/Compile.hs index 8cc565e..77cb037 100644 --- a/src/CabalHelper/Compiletime/Compile.hs +++ b/src/CabalHelper/Compiletime/Compile.hs @@ -565,9 +565,6 @@ cabalInstallVersion :: Options -> IO Version cabalInstallVersion Options {..} = do parseVer . trim <$> readProcess cabalProgram ["--numeric-version"] "" -trim :: String -> String -trim = dropWhileEnd isSpace - createPkgDb :: Options -> Either String Version -> IO PackageDbDir createPkgDb opts@Options {..} cabalVer = do db@(PackageDbDir db_path) <- getPrivateCabalPkgDb opts cabalVer diff --git a/src/CabalHelper/Shared/Common.hs b/src/CabalHelper/Shared/Common.hs index 239fe3c..6a12d86 100644 --- a/src/CabalHelper/Shared/Common.hs +++ b/src/CabalHelper/Shared/Common.hs @@ -25,6 +25,7 @@ module CabalHelper.Shared.Common where import Control.Applicative import Control.Exception as E import Control.Monad +import Data.Char import Data.List import Data.Maybe import Data.Version @@ -82,6 +83,9 @@ parsePkgId bs = parseVer :: String -> Version parseVer vers = runReadP parseVersion vers +trim :: String -> String +trim = dropWhileEnd isSpace + majorVer :: Version -> Version majorVer (Version b _) = Version (take 2 b) [] |