From 9acdb24243c8aa116be8b24eb732344a65ccffe4 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 20 May 2016 22:42:46 -0400 Subject: [PATCH] :fire: toSource. --- test/AlignmentSpec.hs | 3 --- 1 file changed, 3 deletions(-) diff --git a/test/AlignmentSpec.hs b/test/AlignmentSpec.hs index f7cda3f59..f6c7b7cbb 100644 --- a/test/AlignmentSpec.hs +++ b/test/AlignmentSpec.hs @@ -193,9 +193,6 @@ alignBranchElement :: BranchElement -> [BranchElement] alignBranchElement (Child key contents) = Child key <$> traverse lines contents alignBranchElement (Margin contents) = Margin <$> traverse lines contents -toSource :: [BranchElement] -> Source.Source Char -toSource = Source.fromList . concatMap show - toSources :: [BranchElement] -> Both (Source.Source Char) toSources = fmap (foldMap Source.fromList) . bothContents