| 
									
										
										
										
											2005-04-24 08:51:33 +00:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2005-05-15 06:03:55 +00:00
										 |  |  | import System.Plugins.Make | 
					
						
							|  |  |  | import System.Eval.Haskell | 
					
						
							| 
									
										
										
										
											2005-04-24 08:51:33 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | main = do make "a/Extra.hs" [] | 
					
						
							|  |  |  |          | 
					
						
							|  |  |  |           i <- unsafeEval_ "show (Just (1 + 6 :: Int)) ++ extra"  | 
					
						
							|  |  |  |                         ["Data.Maybe", "Extra"]  | 
					
						
							|  |  |  |                         ["-ia"]      -- no make flags | 
					
						
							|  |  |  |                         []           -- no package.confs | 
					
						
							|  |  |  |                         ["a"]        -- include paths to load from | 
					
						
							|  |  |  |                         :: IO (Either [String] String) | 
					
						
							|  |  |  |                 | 
					
						
							|  |  |  |           case i of | 
					
						
							|  |  |  |                 Right i -> putStrLn $ show i | 
					
						
							|  |  |  |                 Left es -> mapM_ putStrLn es |