Commit 607e89f5 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Remove unused 'breaks' util function

parent f8f0418c
......@@ -58,7 +58,6 @@ module Distribution.Simple.Utils (
dieWithLocation,
warn, notice, setupMessage, info, debug,
chattyTry,
breaks,
-- * running programs
rawSystemExit,
......@@ -260,14 +259,6 @@ chattyTry desc action =
-- -----------------------------------------------------------------------------
-- Helper functions
breaks :: (a -> Bool) -> [a] -> [[a]]
breaks _ [] = []
breaks f xs = case span f xs of
(_, xs') ->
case break f xs' of
(v, xs'') ->
v : breaks f xs''
-- | Wraps text to the default line width. Existing newlines are preserved.
wrapText :: String -> String
wrapText = unlines
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment