@@ -510,12 +510,12 @@ idrisMain opts =
510 mapM_ makeOption opts
510 mapM_ makeOption opts
511 -- if we have the --fovm flag, drop into the first order VM testing
511 -- if we have the --fovm flag, drop into the first order VM testing
512 case vm of
512 case vm of
513− [] -> return ()
513+ [] -> return ()
514− xs -> liftIO $ mapM_ (fovm tgt outty) xs
514+ xs -> liftIO $ mapM_ (fovm tgt outty) xs
515 -- if we have the --bytecode flag, drop into the bytecode assembler
515 -- if we have the --bytecode flag, drop into the bytecode assembler
516 case bcs of
516 case bcs of
517− [] -> return ()
517+ [] -> return ()
518− xs -> return () -- liftIO $ mapM_ bcAsm xs
518+ xs -> return () -- liftIO $ mapM_ bcAsm xs
519 case ibcsubdir of
519 case ibcsubdir of
520 [] -> setIBCSubDir ""
520 [] -> setIBCSubDir ""
521 (d:_) -> setIBCSubDir d
521 (d:_) -> setIBCSubDir d