From 1e36bd795f2045271d0f413db60de184b20dfc39 Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Wed, 4 Oct 2017 16:56:11 +0200 Subject: Move 'trim' to common --- src/CabalHelper/Shared/Common.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/CabalHelper/Shared') 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) [] -- cgit v1.2.3