Changes between Version 1 and Version 2 of RunTimeData

Show
Ignore:
Timestamp:
09/14/11 23:43:30 (21 months ago)
Author:
newacct
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • RunTimeData

    v1 v2  
    6666instance Show a => Renderable (Image1 a) where 
    6767    render (Image1 zs) (R r) = do 
    68                                putStrLn $ show zs 
     68                               print zs 
    6969                               let (e,_) = r (RS 0) 
    7070                               return e 
    … …  
    7272instance Show a => Renderable (Image2 a) where 
    7373    render (Image2 xs ys) (R r) = do 
    74                                   putStrLn $ show $ zip xs ys 
     74                                  print $ zip xs ys 
    7575                                  let (e,_) = r (RS 0) 
    7676                                  return e 
    … …  
    105105       a <- getArgs 
    106106       e <- loadFileAndRender (head a) (R (\s -> (0,s))) 
    107        when (e /= 0) $ do 
    108                        exitWith $ ExitFailure e 
    109                        return () 
    110        return () 
     107       when (e /= 0) $ exitWith $ ExitFailure e 
    111108}}}