Changes between Version 1 and Version 2 of RunTimeData


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