mirror of
https://github.com/github/semantic.git
synced 2024-12-25 16:02:43 +03:00
🔥 makeLine.
This commit is contained in:
parent
d18e044d5c
commit
51d36140c5
@ -6,10 +6,6 @@ import Data.Monoid
|
||||
newtype Line a = Line { unLine :: [a] }
|
||||
deriving (Eq, Foldable, Functor, Show, Traversable)
|
||||
|
||||
-- | Create a line from a list of items.
|
||||
makeLine :: [a] -> Line a
|
||||
makeLine = Line
|
||||
|
||||
-- | Transform the line by applying a function to a list of all the items in the
|
||||
-- | line.
|
||||
wrapLineContents :: ([a] -> b) -> Line a -> Line b
|
||||
|
Loading…
Reference in New Issue
Block a user