prettyPrintCommand :: String -> String -> Command -> String
prettyPrintCommand indentation time cmd =
    indentation ++ "[" ++ time ++ "][CMD] " ++ (BC.unpack $ showCommand cmd)
prettyPrintCommand :: String -> String -> Command -> String
prettyPrintCommand indentation time cmd =
    indentation ++ "[" ++ time ++ "][CMD] " ++ (BC.unpack $ showCommand cmd)
prettyPrintCommand indentation time cmd =
    indentation ++ "[" ++ time ++ "][CMD] " ++ (BC.unpack $ showCommand cmd)