Avoid pydetach and fork in haskell

Author: abarbu

src/Graphics/Matplotlib.hs

@@ -70,16 +70,17 @@ where
 import Data.List
 import Data.Aeson
 import Graphics.Matplotlib.Internal
+import Control.Concurrent(forkIO)
 
 -- * Running a plot
 
 -- | Show a plot, blocks until the figure is closed
-onscreen :: Matplotlib -> IO (Either String String)
-onscreen m = withMplot m (\s -> python $ pyIncludes "" ++ s ++ pyDetach ++ pyOnscreen)
+onscreen :: Matplotlib -> IO ()
+onscreen m = (forkIO $ (withMplot m (\s -> python $ pyIncludes "" ++ s ++ pyOnscreen) >> return ())) >> return ()
 
 -- | Print the python code that would be executed
 code :: Matplotlib -> IO String
-code m = withMplot m (\s -> return $ unlines $ pyIncludes (pyBackend "agg") ++ s ++ pyDetach ++ pyOnscreen)
+code m = withMplot m (\s -> return $ unlines $ pyIncludes (pyBackend "agg") ++ s ++ pyOnscreen)
 
 -- | Save to a file
 file :: [Char] -> Matplotlib -> IO (Either String String)

src/Graphics/Matplotlib/Internal.hs

@@ -64,7 +64,7 @@ resolvePending m = m { mpCommands =
 
 -- | The io action is given a list of python commands to execute (note that
 -- these are commands in the sense of lines of python code; each inidivudal line
--- may not be parseable on its own
+-- may not be parseable on its own)
 withMplot :: Matplotlib -> ([String] -> IO a) -> IO a
 withMplot m f = preload cs []
   where