plugins 1.5.3.0 → 1.5.4.0

raw patch · 3 files changed

+13/−13 lines, 3 files

Files

• plugins.cabal +1/−1
• src/System/Eval/Utils.hs +11/−11
• src/System/Plugins/Load.hs +1/−1

@@ -1,5 +1,5 @@ name:               plugins-version:            1.5.3.0+version:            1.5.4.0 homepage:           http://hub.darcs.net/stepcut/plugins synopsis:           Dynamic linking for Haskell and C objects description:        Dynamic linking and runtime evaluation of Haskell,

@@ -1,27 +1,27 @@--- +-- -- Copyright (C) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons--- +-- -- This library is free software; you can redistribute it and/or -- modify it under the terms of the GNU Lesser General Public -- License as published by the Free Software Foundation; either -- version 2.1 of the License, or (at your option) any later version.--- +-- -- This library is distributed in the hope that it will be useful, -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU -- Lesser General Public License for more details.--- +-- -- You should have received a copy of the GNU Lesser General Public -- License along with this library; if not, write to the Free Software -- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 -- USA--- +--  -- -- compile and run haskell strings at runtime. -- -module System.Eval.Utils ( +module System.Eval.Utils (          Import,         symbol,@@ -44,10 +44,10 @@  import Data.Char --- +-- -- we export these so that eval() users have a nice time ---import Data.Maybe +import Data.Maybe import Control.Monad  --@@ -71,15 +71,15 @@ -- getPaths :: IO ([String],[String]) getPaths = do-        let make_line = ["-O0","-fglasgow-exts","-package","plugins"]+        let make_line = ["-O0","-package","plugins"]         return (make_line,[])  -- --------------------------------------------------------------------- -- create the tmp file, and write source into it, using wrapper to -- create extra .hs src. ---mkUniqueWith :: (String -> String -> [Import] -> String) -             -> String +mkUniqueWith :: (String -> String -> [Import] -> String)+             -> String              -> [Import] -> IO FilePath  mkUniqueWith wrapper src mods = do

@@ -301,7 +301,7 @@          hWrite hdl src -        e <- build tmpf tmpf1 (i:is++args++["-fno-code","-ohi "++tmpf1])+        e <- build tmpf tmpf1 (i:is++args++["-fno-code","-c","-ohi "++tmpf1])         mapM_ removeFile [tmpf,tmpf1]         return e