[commit: nofib] master: Typofix (44bff05)

git at git.haskell.org git at git.haskell.org
Sun Dec 30 17:59:41 UTC 2018


Repository : ssh://git@git.haskell.org/nofib

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/44bff05de7ad57e15e887d18f97594b7ed0ffc77/nofib

>---------------------------------------------------------------

commit 44bff05de7ad57e15e887d18f97594b7ed0ffc77
Author: Greif <gabor.greif at nokia.com>
Date:   Thu Dec 27 16:02:52 2018 +0100

    Typofix


>---------------------------------------------------------------

44bff05de7ad57e15e887d18f97594b7ed0ffc77
 parallel/transclos/Main.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/parallel/transclos/Main.hs b/parallel/transclos/Main.hs
index c3cda15..6134c7b 100644
--- a/parallel/transclos/Main.hs
+++ b/parallel/transclos/Main.hs
@@ -76,7 +76,7 @@ main = do
          let zs  = Data.Set.toList $ {- take n $ -} transcl_set  rel_set (Data.Set.fromList seeds)   -- set-based  with 1-to-n rel
 #else
 	 let zs  = {- take n $ -} transcl      rel_list seeds -- default: seq, circular, with a 1-to-n list-based relation
-	 -- unused verions
+	 -- unused versions
          -- let zs  = {- take n $ -} transcl_dup  rel_one seeds   -- no elim of duplicates; good parallelism but stupid
          -- let zs  = {- take n $ -} transcl_simp rel_one seeds       -- list-based with 1-to-1 rel
 #endif
@@ -120,4 +120,3 @@ nfib :: Int -> Int
 nfib 0 = 1
 nfib 1 = 1
 nfib n = nfib (n-1) + nfib (n-2) + 1
-



More information about the ghc-commits mailing list