Use variable for max repl history length

Author: ning-y

src/components/__tests__/Playground.tsx

@@ -25,7 +25,6 @@ const baseProps = {
   handleExternalSelect: (external: any, e: any) => {},
   handleGenerateLz: () => {},
   handleInterruptEval: () => {},
-  handleLibrarySelect: (library: any, e: any) => {},
   handleReplEval: () => {},
   handleReplOutputClear: () => {},
   handleReplValueChange: (code: string) => {},

src/reducers/states.ts

@@ -71,6 +71,8 @@ type ReplHistory = {
   records: string[]
 }
 
+export const maxBrowseIndex = 50
+
 /**
  * An output while the program is still being run in the interpreter. As a
  * result, there are no return values or SourceErrors yet. However, there could

src/reducers/workspaces.ts

@@ -11,8 +11,10 @@ import {
   CLEAR_REPL_INPUT,
   CLEAR_REPL_OUTPUT,
   END_INTERRUPT_EXECUTION,
+  EVAL_EDITOR,
   EVAL_INTERPRETER_ERROR,
   EVAL_INTERPRETER_SUCCESS,
+  EVAL_REPL,
   HANDLE_CONSOLE_LOG,
   IAction,
   RESET_ASSESSMENT_WORKSPACE,
@@ -32,7 +34,8 @@ import {
   defaultComments,
   defaultWorkspaceManager,
   InterpreterOutput,
-  IWorkspaceManagerState
+  IWorkspaceManagerState,
+  maxBrowseIndex
 } from './states'
 
 /**
@@ -232,7 +235,7 @@ export const reducer: Reducer<IWorkspaceManagerState> = (
       } else {
         newReplHistoryRecords = state[location].replHistory.records
       }
-      if (newReplHistoryRecords.length > 50) {
+      if (newReplHistoryRecords.length > maxBrowseIndex) {
         newReplHistoryRecords.pop()
       }
       return {
@@ -254,14 +257,6 @@ export const reducer: Reducer<IWorkspaceManagerState> = (
           ...state[location]
         }
       }
-    case EVAL_REPL:
-      // Forces re-render of workspace on repl eval
-      return {
-        ...state,
-        [location]: {
-          ...state[location]
-        }
-      }
     case EVAL_INTERPRETER_SUCCESS:
       lastOutput = state[location].output.slice(-1)[0]
       if (lastOutput !== undefined && lastOutput.type === 'running') {
@@ -306,6 +301,14 @@ export const reducer: Reducer<IWorkspaceManagerState> = (
           output: newOutput
         }
       }
+    case EVAL_REPL:
+      // Forces re-render of workspace on repl eval
+      return {
+        ...state,
+        [location]: {
+          ...state[location]
+        }
+      }
     /**
      * Called to signal the end of an interruption,
      * i.e called after the interpreter is told to stop interruption,