Changes between Version 1 and Version 2 of RunTimeData


Ignore:
Timestamp:
Sep 15, 2011 6:43:30 AM (3 years 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}}}