Skip to content

Commit

Permalink
Fix code for failing test of span
Browse files Browse the repository at this point in the history
  • Loading branch information
lotz84 committed May 7, 2020
1 parent 65a6578 commit 96d3c77
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 2 deletions.
2 changes: 1 addition & 1 deletion docs/Algorithms/List/BasicOperations/Span.md
Original file line number Diff line number Diff line change
Expand Up @@ -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)
```
3 changes: 2 additions & 1 deletion recursion-algorithms.cabal
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand Down

0 comments on commit 96d3c77

Please sign in to comment.