>>> :set -XOverloadedLists
>>> :{
  let m = Map.fromList
        [ ("cmd1", ("one" :<|| [], Nothing)),
          ("cmd2", ("two" :<|| [], Nothing)),
          ("all", ("cmd1" :<|| ["cmd2","other"], Nothing))
        ]
      k = (fmap . first) (fmap (view #command))
  in k $ translateCommands m ("all" :<|| ["blah"]) Nothing
:}
(fromList ("one" :| ["two","other","blah"]),MkEdges {unEdges = fromList []})

Note: If -- when looking up a line -- we detect a cycle, then a CyclicKeyError will be returned.

>>> :{
  let m = Map.fromList
        [ ("a", ("b" :<|| [], Nothing)),
          ("b", ("c" :<|| [], Nothing)),
          ("c", ("a" :<|| [], Nothing))
        ]
  in try @_ @CyclicKeyError $ translateCommands m ("a" :<|| []) Nothing
:}
Left (MkCyclicKeyError "a -> b -> c -> a")