Add a reader effect to determine when to break.

Co-Authored-By: Ayman Nadeem <aymannadeem@gmail.com>

src/Semantic/REPL.hs

@@ -103,6 +103,7 @@ repl proxy parser paths = defaultConfig debugOptions >>= \ config -> runM . runD
   modules <- topologicalSort <$> runImportGraphToModules proxy (snd <$> package)
   runEvaluator
     . runREPL
+    . runReader Always
     . runTermEvaluator @_ @_ @(Value Precise (UtilEff Precise _))
     . runState lowerBound
     . runFresh 0
@@ -171,6 +172,12 @@ step blobs recur term = do
           maybe (runCommands run) (runCommand run . words) str
 
 
+data Break
+  = Always
+  | Never
+  deriving Show
+
+
 settings :: Settings IO
 settings = Settings
   { complete = noCompletion