Replace v1 ls command

Author: lehmacdj

cli/src/Graph/Command.hs

@@ -35,7 +35,6 @@ import Models.Edge
 import Models.History
 import Models.MaterializedPath
 import Models.NID
-import Models.Node
 import Models.NormalizedPath (leastConstrainedNormalizedPath, normalizePath)
 import Models.Path.ParsedPath
 import Models.Path.Simple (Path)
@@ -183,9 +182,6 @@ interpretCommand = \case
       (\a s -> insertEdge (Edge nid (t <> pack s) a))
       (toList ambiguities)
       suffixes
-  ListOut -> do
-    n <- subsumeUserError currentNode
-    printTransitions n.outgoing
   ShowImage -> do
     n <- subsumeUserError (currentNode @Text)
     forM_ n.rawData $ subsumeUserError @Missing . displayImage . fromStrict
@@ -248,10 +244,8 @@ interpretCommand = \case
     put @History history'
   Seq ps -> do
     toList ps & traverse_ interpretCommand
-  V2Path p -> do
+  Preview p -> do
     nid <- currentLocation
-    -- say $ "current location: " ++ tshow nid
-    -- say $ "parsed path: " ++ tshow p
     scoped_ do
       p' <- handleDirectivesWith interpretDirective p
       mp <- materializePath nid p'

cli/src/Models/Command.hs

@@ -24,8 +24,6 @@ data Command
     Make Path
   | -- | mg
     Merge Path
-  | -- | ls
-    ListOut
   | -- | t
     Tag Path Path
   | Text Text Text
@@ -68,6 +66,6 @@ data Command
     Back Int
   | -- | Execute a list of commands sequentially
     Seq (TwoElemList Command)
-  | -- | debug-v2-path, v2
-    V2Path ParsedPath
+  | -- | preview, ls
+    Preview ParsedPath
   deriving (Eq, Show, Ord, Generic)

cli/src/Models/Command/Parse.hs

@@ -31,9 +31,6 @@ pMake = (command "mk" $> Make) <*> path
 pMerge :: Parser Command
 pMerge = (command "mg" $> Merge) <*> path
 
-pList :: Parser Command
-pList = command "ls" $> ListOut
-
 pTag :: Parser Command
 pTag = (commandFrom ["tag", "t"] $> Tag) <*> path <*> path
 
@@ -91,17 +88,16 @@ pEdit = command "vi" $> Edit
 pBack :: Parser Command
 pBack = (command "back" $> Back) <*> number
 
-pV2Path :: Parser Command
-pV2Path = (commandFrom ["debug-v2-path", "v2"] $> V2Path) <*> pPath
+pPreview :: Parser Command
+pPreview = (commandFrom ["preview", "ls"] $> Preview) <*> option Wild pPath
 
 pCommandTerm :: Parser Command
 pCommandTerm =
   try pChangeNode
-    <|> try pV2Path
+    <|> try pPreview
     <|> try pDualize
     <|> try pMake
     <|> try pMerge
-    <|> try pList
     <|> try pTag
     <|> try pText
     <|> try pDescribe