From ebb302498593f15330affa732c5206e31d882d8f Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Wed, 15 May 2024 15:25:36 -0500
Subject: Rename screen -> Prompt

---
 lib/headlines.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/headlines.ml')

diff --git a/lib/headlines.ml b/lib/headlines.ml
index 6b79262..36191bd 100644
--- a/lib/headlines.ml
+++ b/lib/headlines.ml
@@ -1,7 +1,7 @@
 module Grep = Grep
 module Common = Common
 open Notty
-module Input_screen = Input_screen
+module Input_prompt = Input_prompt
 module Stitched_article = Stitched_article
 module Help_screen = Help_screen
 
@@ -98,7 +98,7 @@ let rec render
       ; goto_done_view
       }
   | `Key (`ASCII 'r', []) ->
-    let (input_state : Input_screen.state) =
+    let (input_state : Input_prompt.state) =
       { screen = img
       ; user_input = ""
       ; prompt = "REGEXP: "
@@ -116,7 +116,7 @@ let rec render
             render t state)
       }
     in
-    Input_screen.render t input_state
+    Input_prompt.render t input_state
   | `Key (`ASCII 'j', []) | `Key (`ASCII 'N', [ `Ctrl ]) -> scroll_down ()
   | `Key (`ASCII 'k', []) | `Key (`ASCII 'P', [ `Ctrl ]) -> scroll_up ()
   | `Key (`Arrow d, _) ->
-- 
cgit v1.2.3