main = do
    args <- getArgs
    case args of
        [dir] -> do
            readExamples dir >>= B.putStr . assignment "examples"
        _ -> do
            hPutStrLn stderr "Usage: bundle-examples <dir> > examples.js"
main = do
    args <- getArgs
    case args of
        [dir] -> do
            readExamples dir >>= B.putStr . assignment "examples"
        _ -> do
            hPutStrLn stderr "Usage: bundle-examples <dir> > examples.js"
main = do
    args <- getArgs
    case args of
        [dir] -> do
            readExamples dir >>= B.putStr . assignment "examples"
        _ -> do
            hPutStrLn stderr "Usage: bundle-examples <dir> > examples.js"