@@ -510,12 +510,12 @@ idrisMain opts =
510510 mapM_ makeOption opts
511511 -- if we have the --fovm flag, drop into the first order VM testing
512512 case vm of
513− [] -> return ()
514− xs -> liftIO $ mapM_ (fovm tgt outty) xs
513+ [] -> return ()
514+ xs -> liftIO $ mapM_ (fovm tgt outty) xs
515515 -- if we have the --bytecode flag, drop into the bytecode assembler
516516 case bcs of
517− [] -> return ()
518− xs -> return () -- liftIO $ mapM_ bcAsm xs
517+ [] -> return ()
518+ xs -> return () -- liftIO $ mapM_ bcAsm xs
519519 case ibcsubdir of
520520 [] -> setIBCSubDir ""
521521 (d:_) -> setIBCSubDir d