File tree 3 files changed +5
-7
lines changed
3 files changed +5
-7
lines changed Original file line number Diff line number Diff line change @@ -19,7 +19,9 @@ import Data.List ( sort
19
19
, sortBy
20
20
, isInfixOf
21
21
)
22
- import Data.List.Extra ( nubOrdBy )
22
+ import Data.List.Extra ( nubOrdBy
23
+ , trim
24
+ )
23
25
import Data.Ord ( comparing )
24
26
import Control.Monad.Extra ( mapMaybeM )
25
27
Original file line number Diff line number Diff line change @@ -3,7 +3,7 @@ module Print where
3
3
import Development.Shake
4
4
import Control.Monad.IO.Class
5
5
import Data.List ( dropWhileEnd )
6
- import Data.List.Extra ( trimStart , trimEnd )
6
+ import Data.List.Extra ( trim )
7
7
import Data.Char ( isSpace )
8
8
9
9
-- | lift putStrLn to MonadIO
@@ -22,11 +22,6 @@ embedInStars str =
22
22
printInStars :: MonadIO m => String -> m ()
23
23
printInStars = liftIO . putStrLn . embedInStars
24
24
25
-
26
- -- | Trim whitespace of both ends of a string
27
- trim :: String -> String
28
- trim = trimEnd . trimStart
29
-
30
25
-- | Trim the whitespace of the stdout of a command
31
26
trimmedStdout :: Stdout String -> String
32
27
trimmedStdout (Stdout s) = trim s
Original file line number Diff line number Diff line change 1
1
{-# LANGUAGE CPP #-}
2
2
module Stack where
3
3
4
+ import Data.List.Extra ( trim )
4
5
import Development.Shake
5
6
import Development.Shake.FilePath
6
7
import Control.Monad
You can’t perform that action at this time.
0 commit comments