github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Revert "Fail instead of die"

Browse Source 
This reverts commit d55ba538acbd7683128edb3ebce3c7255d38ae12.
This commit is contained in:
joshvera 2017-09-20 15:01:45 -04:00
parent 22b8b7cac2
commit 4f674ed622
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Files.hs
View File

@ -56,7 +56,7 @@ readFromHandle h = do
input <- liftIO $ BL.hGetContents h
case decode input of
Just d -> pure d
Nothing -> liftIO $ fail ("invalid input on " <> show h <> ", expecting JSON")
Nothing -> liftIO $ die ("invalid input on " <> show h <> ", expecting JSON")
toBlob :: Blob -> Blob.Blob
toBlob Blob{..} = Blob.sourceBlob path language' (fromText content)