ilyakooo0/sc-build
1
0
Fork 0
mirror of https://github.com/ilyakooo0/sc-build.git synced 2024-12-18 07:11:38 +03:00
Code Issues Projects Releases Wiki Activity

fixed non-printable characters

Browse Source
This commit is contained in:
iko 2020-02-24 20:26:15 +03:00
parent 407ddde088
commit b57d38b161
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Tasks/Build.hs
View File

@ -16,6 +16,7 @@ import Control.Monad.IO.Unlift
import Control.Task import Control.Task
import Data.Aeson hiding (Success) import Data.Aeson hiding (Success)
import qualified Data.ByteString.Lazy.Char8 as BS import qualified Data.ByteString.Lazy.Char8 as BS
import Data.Char
import Data.String import Data.String
import Data.Submission import Data.Submission
import Data.Submission.Query import Data.Submission.Query
@ -128,7 +129,7 @@ instance Task Build "build-repo" where
return (buildCode, buildOut, buildErr) return (buildCode, buildOut, buildErr)
case dockerRes of case dockerRes of
(ExitFailure n, _, buildErr) -> do (ExitFailure n, _, buildErr) -> do
let err = BS.unpack buildErr let err = dropWhile (not . isPrint) . BS.unpack $ buildErr
logError . T.pack $ logError . T.pack $
"test command for repo " <> show fullRepoName <> " at sha " "test command for repo " <> show fullRepoName <> " at sha "
<> show sha <> show sha