Removed runRunCommand

The `liftIO` is a sophisticated identity function ;).

Author: coot

cardano-node/app/cardano-node.hs

@@ -29,7 +29,7 @@ main = toplevelExceptionHandler $ do
     cmd <- Opt.customExecParser p opts
 
     case cmd of
-      RunCmd args -> runRunCommand args
+      RunCmd args -> runNode args
       TraceDocumentation tdc -> runTraceDocumentationCmd tdc
       VersionCmd  -> runVersionCommand
 
@@ -95,9 +95,6 @@ runVersionCommand =
     renderVersion = Text.pack . showVersion
 
 
-runRunCommand :: PartialNodeConfiguration -> IO ()
-runRunCommand pnc = liftIO $ runNode pnc
-
 command' :: String -> String -> Parser a -> Mod CommandFields a
 command' c descr p =
     command c $ info (p <**> helper)