First reliability tests

app/Main.hs

@@ -245,6 +245,7 @@ main = do
   loghandle <- openFile (logfile opts) WriteMode
   putStrLn $ "logging to: " ++ logfile opts
   loop 2000 startPlants (loghandle,env)
+  hClose loghandle
   when printEverything $ do
     putStrLn "Simulation ended. Press key to exit."
     _ <- getChar