1
- --
1
+ --
2
2
-- Copyright (C) 2004 Don Stewart - http://www.cse.unsw.edu.au/~dons
3
- --
3
+ --
4
4
-- This library is free software; you can redistribute it and/or
5
5
-- modify it under the terms of the GNU Lesser General Public
6
6
-- License as published by the Free Software Foundation; either
7
7
-- version 2.1 of the License, or (at your option) any later version.
8
- --
8
+ --
9
9
-- This library is distributed in the hope that it will be useful,
10
10
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
11
11
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12
12
-- Lesser General Public License for more details.
13
- --
13
+ --
14
14
-- You should have received a copy of the GNU Lesser General Public
15
15
-- License along with this library; if not, write to the Free Software
16
16
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
17
17
-- USA
18
- --
18
+ --
19
19
20
20
--
21
21
-- compile and run haskell strings at runtime.
22
22
--
23
23
24
- module System.Eval.Utils (
24
+ module System.Eval.Utils (
25
25
26
26
Import ,
27
27
symbol ,
@@ -44,10 +44,10 @@ import System.Directory
44
44
45
45
import Data.Char
46
46
47
- --
47
+ --
48
48
-- we export these so that eval() users have a nice time
49
49
--
50
- import Data.Maybe
50
+ import Data.Maybe
51
51
import Control.Monad
52
52
53
53
--
@@ -71,15 +71,15 @@ escape s = concatMap (\c -> showLitChar c $ "") s
71
71
--
72
72
getPaths :: IO ([String ],[String ])
73
73
getPaths = do
74
- let make_line = [" -O0" ," -fglasgow-exts " , " - package" ," plugins" ]
74
+ let make_line = [" -O0" ," -package" ," plugins" ]
75
75
return (make_line,[] )
76
76
77
77
-- ---------------------------------------------------------------------
78
78
-- create the tmp file, and write source into it, using wrapper to
79
79
-- create extra .hs src.
80
80
--
81
- mkUniqueWith :: (String -> String -> [Import ] -> String )
82
- -> String
81
+ mkUniqueWith :: (String -> String -> [Import ] -> String )
82
+ -> String
83
83
-> [Import ] -> IO FilePath
84
84
85
85
mkUniqueWith wrapper src mods = do
0 commit comments