Move 'trim' to common

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) []