Refactor -e option into -E and -e

1 files changed, 7 insertions, 1 deletions

diff --git a/src/Utils.hs b/src/Utils.hs
index 2f9e3c0..c2a5088 100644
--- a/src/Utils.hs
+++ b/src/Utils.hs
@@ -15,11 +15,17 @@ type PositionString = String
 type ErrorString = String
 data LException = LException (Maybe PositionString) ErrorString
 
+data PrintEvaled
+    = PrintEvaledOff
+    | PrintEvaledAll
+    | PrintEvaledNonUnit
+    deriving Show
+
 data Config = Config {
     configScriptFileName :: Maybe String,
     configVerboseMode :: Bool,
     configShowHelp :: Bool,
-    configPrintEvaled :: Bool,
+    configPrintEvaled :: PrintEvaled,
     configPrintCallStack :: Bool,
     configUseREPL :: Bool
 }