From f150994cc735dc89575c7637ae5deed222ffb1ed Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri.lozeve@gmail.com>
Date: Thu, 9 Nov 2017 23:19:51 +0000
Subject: [PATCH] Rearrange csvFromInit

---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index 53f68e0..1a22ca3 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -76,7 +76,7 @@ csvFromInit :: Int -- ^ The number of time steps to keep
   -> Double -- ^ The Barnes-Hut threshold theta
   -> [Body] -- ^ The initial state (list of bodies)
   -> String -- ^ CSV data
-csvFromInit n dt theta b = concat . take n $ map (uncurry csvFromBodies) (steps dt theta b)
+csvFromInit n dt theta b = concat $ map (uncurry csvFromBodies) (take n $ steps dt theta b)
 
 main :: IO ()
 main = do