Factor whole around.

facet-lang · Oct 22, 2020 · 4d8650e · 4d8650e
1 parent 27d0885
commit 4d8650e
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Facet/REPL.hs b/src/Facet/REPL.hs
@@ -183,15 +183,15 @@ commands :: [Command Action]
 commands =
   [ Command ["help", "h", "?"]  "display this list of commands"      $ Pure Help
   , Command ["quit", "q"]       "exit the repl"                      $ Pure Quit
-  , Command ["show"]            "show compiler state"                $ Meta "target" $ Show <$> choice
-    [ Paths <$ whole (token (string "paths"))
-    , Modules <$ whole (token (string "modules"))
+  , Command ["show"]            "show compiler state"                $ Meta "target" $ whole $ Show <$> choice
+    [ Paths <$ token (string "paths")
+    , Modules <$ token (string "modules")
     ]
-  , Command ["add"]             "add a module/path to the repl"      $ Meta "path" $ choice
+  , Command ["add"]             "add a module/path to the repl"      $ Meta "path" $ whole $ choice
     [ Add Paths <$ token (string "path") <*> path'
     , Add Modules <$ token (string "module") <*> path'
     ]
-  , Command ["remove", "rm"]    "remove a module/path from the repl" $ Meta "path" $ choice
+  , Command ["remove", "rm"]    "remove a module/path from the repl" $ Meta "path" $ whole $ choice
     [ Remove Paths <$ token (string "path") <*> path'
     , Remove Modules <$ token (string "module") <*> path'
     ]