fix inconsistent trace output

src/Pact/Repl.hs

@@ -294,8 +294,8 @@ renderErr a
       let i = case m of
                 Script _ f -> Info (Just (mempty,Parsed (Directed (encodeUtf8 $ pack f) 0 0 0 0) 0))
                 _ -> Info (Just (mempty,Parsed (Lines 0 0 0 0) 0))
-      return $ renderInfo i ++ ": " ++ renderCompactString' (peDoc a)
-  | otherwise = return $ renderInfo (peInfo a) ++ ": " ++ renderCompactString' (peDoc a)
+      return $ renderInfo i ++ ":Error: " ++ renderCompactString' (peDoc a)
+  | otherwise = return $ renderInfo (peInfo a) ++ ":Error: " ++ renderCompactString' (peDoc a)
 
 updateForOp :: Info -> Term Name -> Repl (Either String (Term Name))
 updateForOp i a = do
@@ -388,7 +388,7 @@ execScriptF dolog f stateMod = do
         fmap sequence $ forM _rlsTests $ \TestResult{..} -> case trFailure of
           Nothing -> return (Just ())
           Just (i,e) -> do
-            hPutStrLn stderr $ renderInfo (_faInfo i) ++ ": " ++ unpack e
+            hPutStrLn stderr $ renderInfo (_faInfo i) ++ ":ExecError: " ++ unpack e
             return Nothing
   case r of
     Left _ -> outFailures >> return (Left ())

src/Pact/Repl/Lib.hs

@@ -534,7 +534,7 @@ testCatch :: FunApp -> Text -> Eval LibState a -> Doc ->
              (a -> Eval LibState (Term Name)) -> Eval LibState (Term Name)
 testCatch i doc expr errMsg cont = catchesPactError expr >>= \r -> case r of
   Right v -> cont v
-  Left e -> testFailure i doc $ errMsg <> ": " <> prettyErr e
+  Left e -> testFailure i doc $ errMsg <> ":" <> prettyErr e
   where
     prettyErr e = prettyInfo (peInfo e) <> peDoc e
     prettyInfo a