Fix warning in Tests.hs

91870dc7 · Yiannis Tsiouris · 60802061 · 91870dc7
Commit 91870dc7 authored Dec 04, 2014 by Yiannis Tsiouris
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

Tests.hs Tests.hs +2 -1

No files found.
--- a/Tests.hs
+++ b/Tests.hs
@@ -101,7 +101,8 @@ testDistSeqLong nodes result = do

 -- Batch the tests

-tests :: [LocalNode]  -> [Test]
+tests :: [LocalNode] -> [Test]
+tests [] = []
 tests (localNode : localNodes) = [
      testGroup "Sequential Tests" [
            testCase "testSeqShort"