-- | Creates an empty CmdlState
emptyCmdlState :: HetcatsOpts -> CmdlState
emptyCmdlState opts = CmdlState
  { intState = IntState
      { i_state = Nothing
      , i_hist = IntHistory
          { undoList = []
          , redoList = [] }
      , filename = [] }
  , prompter = CmdlPrompterState
      { fileLoaded = ""
      , prompterHead = "> " }
  , output = emptyCmdlMessage
  , openComment = False
  , connections = []
  , hetsOpts = opts }
emptyCmdlState :: HetcatsOpts -> CmdlState
emptyCmdlState opts = CmdlState
  { intState = IntState
      { i_state = Nothing
      , i_hist = IntHistory
          { undoList = []
          , redoList = [] }
      , filename = [] }
  , prompter = CmdlPrompterState
      { fileLoaded = ""
      , prompterHead = "> " }
  , output = emptyCmdlMessage
  , openComment = False
  , connections = []
  , hetsOpts = opts }
emptyCmdlState opts = CmdlState
  { intState = IntState
      { i_state = Nothing
      , i_hist = IntHistory
          { undoList = []
          , redoList = [] }
      , filename = [] }
  , prompter = CmdlPrompterState
      { fileLoaded = ""
      , prompterHead = "> " }
  , output = emptyCmdlMessage
  , openComment = False
  , connections = []
  , hetsOpts = opts }