export some menu actions

tek · Oct 6, 2023 · 67529f6 · 67529f6
1 parent 19e85eb
commit 67529f6
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 10 deletions.
diff --git a/packages/menu/lib/Ribosome/Menu.hs b/packages/menu/lib/Ribosome/Menu.hs
@@ -41,6 +41,9 @@ import Ribosome.Menu.Action (
   menuToggle,
   menuToggleAll,
   menuUpdatePrompt,
+  menuUpdatePromptState,
+  menuAttachPrompt,
+  menuDetachPrompt,
   )
 import Ribosome.Menu.App (MenuApp, PromptApp, builtinHandlers, defaultHandlers, insert, promptControl, withInsert)
 import Ribosome.Menu.Data.Entry (Entries, Entry)

diff --git a/packages/menu/lib/Ribosome/Menu/Loop.hs b/packages/menu/lib/Ribosome/Menu/Loop.hs
@@ -6,7 +6,7 @@ import qualified Log
 import qualified Streamly.Prelude as Stream
 import Streamly.Prelude (SerialT)
 
-import Ribosome.Data.Mapping (MappingLhs (MappingLhs), MappingSpec)
+import Ribosome.Data.Mapping (MappingLhs, MappingSpec)
 import Ribosome.Host.Data.RpcError (RpcError)
 import Ribosome.Menu.Action (MenuActionSem)
 import qualified Ribosome.Menu.App
@@ -69,15 +69,6 @@ menuAction = \case
   MenuAction.Quit result ->
     pure (PromptAction.Quit result)
 
-mappingResult ::
-  Members [MenuCore, Reader PromptState, Log] r =>
-  MappingLhs ->
-  MenuAction result ->
-  Sem r (PromptAction (MenuResult result))
-mappingResult (MappingLhs trigger) action = do
-  Log.debug [exon|menu mapping #{trigger}: #{MenuAction.describe action}|]
-  menuAction action
-
 handleMapping ::
   Members [MenuCore, Reader PromptState, Log] r =>
   (InputParams -> Maybe (MenuActionSem r result)) ->