From 96d3c7701e5beb9ab9c69d39e0996c42439febf5 Mon Sep 17 00:00:00 2001 From: Tatsuya Hirose Date: Fri, 8 May 2020 02:23:46 +0900 Subject: [PATCH] Fix code for failing test of `span` --- docs/Algorithms/List/BasicOperations/Span.md | 2 +- recursion-algorithms.cabal | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/docs/Algorithms/List/BasicOperations/Span.md b/docs/Algorithms/List/BasicOperations/Span.md index 4b4f8e8..e0ebe01 100644 --- a/docs/Algorithms/List/BasicOperations/Span.md +++ b/docs/Algorithms/List/BasicOperations/Span.md @@ -25,6 +25,6 @@ spanPara :: (a -> Bool) -> [a] -> ([a], [a]) spanPara p = para phi where phi = \ case - Nil -> ([], []) + Nil -> ([], []) Cons a (as, b) -> if p a then first (a :) b else ([], a : as) ``` diff --git a/recursion-algorithms.cabal b/recursion-algorithms.cabal index a87ad27..8268aa3 100644 --- a/recursion-algorithms.cabal +++ b/recursion-algorithms.cabal @@ -4,7 +4,7 @@ cabal-version: 1.12 -- -- see: https://github.com/sol/hpack -- --- hash: 21ad7a629180694f0c2b428e63ce3aefb9549ae80db4d746969c0cead077a1d8 +-- hash: d958f4ccf65a2c93d60f047dcf2dd8ad66bd690ffb6223391f64ee83d298cf63 name: recursion-algorithms version: 0.0.0 @@ -26,6 +26,7 @@ library Algorithms.List.BasicOperations.Length Algorithms.List.BasicOperations.Map Algorithms.List.BasicOperations.Reverse + Algorithms.List.BasicOperations.Span Algorithms.List.BasicOperations.TakeWhile Algorithms.List.BasicOperations.Zip Algorithms.List.EditDistance