github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00
Code Issues Projects Releases Wiki Activity

Print IO exception to stderr

Browse Source 
- Printing to stdout will cause JSON parsing issues on the dotcom side
This commit is contained in:
Rick Winfrey 2017-03-27 15:27:03 -07:00
parent 3d20fe58a3
commit 1399166ed0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/GitmonClient.hs
View File

@ -14,10 +14,11 @@ import Git.Libgit2
import Network.Socket hiding (recv)
import Network.Socket.ByteString (sendAll, recv)
import Prelude
import Prologue hiding (toStrict, map, print)
import Prologue hiding (toStrict, map, print, show)
import System.Clock
import System.Directory (getCurrentDirectory)
import System.Environment
import System.IO (hPrint, stderr)
import System.Timeout
import Text.Regex
@ -167,7 +168,7 @@ safeGitmonIO command = liftIO $ timeout gitmonTimeout command `catch` logError
logError :: IOException -> IO (Maybe a)
logError e = do
print e
hPrint stderr e
pure Nothing
procFileAddr :: String