Permalink
Browse files

Fixed typo bug in test suite.

  • Loading branch information...
1 parent 96cea28 commit de51b0d1b232ebb837ecdb7899c98cae549e793e @jgm committed Feb 1, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 tests/Tests.lhs
View
@@ -344,8 +344,8 @@ This program runs tests for the filestore modules.
Diff from Nothing should be diff from empty document.
> diff'' <- diff fs diffTitle Nothing (Just $ revId firstrev)
-> let added'' = [s | Second s <- diff']
-> assertEqual "added lines from empty document to first revision" [lines testContents] added''
+> let added'' = concat [x | Second x <- diff'']
+> assertEqual "added lines from empty document to first revision" (lines testContents) added''
Diff to Nothing should be diff to latest.

0 comments on commit de51b0d

Please sign in to comment.