yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use Build.Print to show errors

Browse source
This commit is contained in:
Evan Czaplicki 2014-01-20 14:01:53 +01:00
parent 6ba394c9cb
commit fc154f91cf
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
compiler/Build/Interface.hs
View file

@ -4,28 +4,23 @@ module Build.Interface (load,isValid) where
import qualified Data.ByteString.Lazy as L
import qualified Data.Binary as Binary
import qualified Build.Print as Print
import qualified Elm.Internal.Version as Version
import System.Directory (doesFileExist)
import System.Exit
import System.IO
import SourceSyntax.Module
load :: Binary.Binary a => FilePath -> IO a
load filePath =
do exists <- doesFileExist filePath
case exists of
False -> failure $ "Unable to find file " ++ filePath ++ " for deserialization!"
False -> Print.failure $ "Unable to find file " ++ filePath ++ " for deserialization!"
True -> do
bytes <- L.readFile filePath
case Binary.decodeOrFail bytes of
Right (_, _, binaryInfo) -> return binaryInfo
Left (_, offset, err) -> failure $ msg offset err
Left (_, offset, err) -> Print.failure $ msg offset err
where
failure err = do hPutStrLn stderr err
exitFailure
msg offset err = concat
[ "Error reading build artifact: ", filePath, "\n"
, " '", err, "' at offset ", show offset, "\n"