Accidentally removed one line too many

adept · Aug 13, 2011 · 4adb529 · 4adb529
1 parent ff35e33
commit 4adb529
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/code/mpi-gather.hs b/code/mpi-gather.hs
@@ -10,6 +10,7 @@ main = mpi $ do
   rank <- commRank commWorld
   let master = 0 :: Rank
 
+  aStr:bStr:nStr:_ <- getArgs
   let [a,b] = map read [aStr,bStr]
       n = read nStr
       h = (b - a) / fromIntegral n

diff --git a/haskell-mpi.tex b/haskell-mpi.tex
@@ -401,6 +401,7 @@ \subsection{Many-to-one communications}
   rank <- commRank commWorld
   let master = 0 :: Rank
   
+  aStr:bStr:nStr:_ <- getArgs
   let [a,b] = map read [aStr,bStr]
       n = read nStr
       h = (b - a) / fromIntegral n