Skip to content

Commit 8946578

Browse files
fendormergify[bot]Ailrun
authored
Remove custom 'trim' implementation (#1406)
Co-authored-by: mergify[bot] <37929162+mergify[bot]@users.noreply.github.com> Co-authored-by: Junyoung/Clare Jang <jjc9310@gmail.com>
1 parent da496a1 commit 8946578

File tree

3 files changed

+5
-7
lines changed

3 files changed

+5
-7
lines changed

install/src/Env.hs

+3-1
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,9 @@ import Data.List ( sort
1919
, sortBy
2020
, isInfixOf
2121
)
22-
import Data.List.Extra ( nubOrdBy )
22+
import Data.List.Extra ( nubOrdBy
23+
, trim
24+
)
2325
import Data.Ord ( comparing )
2426
import Control.Monad.Extra ( mapMaybeM )
2527

install/src/Print.hs

+1-6
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@ module Print where
33
import Development.Shake
44
import Control.Monad.IO.Class
55
import Data.List ( dropWhileEnd )
6-
import Data.List.Extra ( trimStart, trimEnd )
6+
import Data.List.Extra ( trim )
77
import Data.Char ( isSpace )
88

99
-- | lift putStrLn to MonadIO
@@ -22,11 +22,6 @@ embedInStars str =
2222
printInStars :: MonadIO m => String -> m ()
2323
printInStars = liftIO . putStrLn . embedInStars
2424

25-
26-
-- | Trim whitespace of both ends of a string
27-
trim :: String -> String
28-
trim = trimEnd . trimStart
29-
3025
-- | Trim the whitespace of the stdout of a command
3126
trimmedStdout :: Stdout String -> String
3227
trimmedStdout (Stdout s) = trim s

install/src/Stack.hs

+1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
{-# LANGUAGE CPP #-}
22
module Stack where
33

4+
import Data.List.Extra ( trim )
45
import Development.Shake
56
import Development.Shake.FilePath
67
import Control.Monad

0 commit comments

Comments
 (0)