on master help sign in
fixed non-printable characters
commitb57d38b1612bba550071bf07200f164424fa5a50 authoriko <ilyakooo0@gmail.com> dateMon 24 Feb 2020, 20:26 (7 years ago) parent407ddde
1 file changed+2−1
src/Data/Tasks/Build.hs+2−1
src/Data/Tasks/Build.hs+2−1
@@ -16,6 +16,7 @@ import Control.Monad.IO.Unlift
1616import Control.Task
1717import Data.Aeson hiding (Success)
1818import qualified Data.ByteString.Lazy.Char8 as BS
19+import Data.Char
1920import Data.String
2021import Data.Submission
2122import Data.Submission.Query
@@ -128,7 +129,7 @@ instance Task Build "build-repo" where
128129 return (buildCode, buildOut, buildErr)
129130 case dockerRes of
130131 (ExitFailure n, _, buildErr) -> do
131− let err = BS.unpack buildErr
132+ let err = dropWhile (not . isPrint) . BS.unpack $ buildErr
132133 logError . T.pack $
133134 "test command for repo " <> show fullRepoName <> " at sha "
134135 <> show sha