From ac513ff24c78ad0cb008c08c25bf48b4464fff6b Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Wed, 27 Jul 2022 01:19:44 +0200
Subject: Future

---
 src/Eval.hs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'src/Eval.hs')

diff --git a/src/Eval.hs b/src/Eval.hs
index c9c784e..e0ad17a 100644
--- a/src/Eval.hs
+++ b/src/Eval.hs
@@ -231,8 +231,11 @@ runRepl = do
 usage :: IO ()
 usage = do
   putStrLn "Invalid arguments. Use 'bruijn [option] path' instead"
-  putStrLn "-c\tcompile path to binary-BLC"
-  putStrLn "-C\tcompile path to ASCII-BLC"
+  putStrLn "-o\toptimize path"
+  putStrLn "-c\tcompress path to binary-BLC"
+  putStrLn "-C\tcompress path to ASCII-BLC"
+  putStrLn "-b\tcompile path to binary-BLC"
+  putStrLn "-B\tcompile path to ASCII-BLC"
   putStrLn "-e\texecute path as binary-BLC"
   putStrLn "-E\texecute path as ASCII-BLC"
   putStrLn "-*\tshow this help"
@@ -243,10 +246,10 @@ evalMain = do
   args <- getArgs
   case args of
     []           -> runRepl
-    ["-c", path] -> evalFile path
+    ["-b", path] -> evalFile path
                              (Byte.putStr . Bit.realizeBitStringStrict)
                              (toBitString . toBinary)
-    ["-C", path] -> evalFile path putStrLn toBinary
+    ["-B", path] -> evalFile path putStrLn toBinary
     ["-e", path] ->
       exec path (try . Byte.readFile) (fromBitString . Bit.bitString)
     ["-E", path] -> exec path (try . readFile) id
-- 
cgit v1.2.3