@@ -36,12 +36,12 @@ interfaces =
36safeReadDocs :: FilePath -> IO Interfaces
36safeReadDocs :: FilePath -> IO Interfaces
37safeReadDocs name =
37safeReadDocs name =
38 E.catch (readDocs name) $ \err -> do
38 E.catch (readDocs name) $ \err -> do
39+ let _ = err :: IOError
39 putStrLn $ unlines [ "Error reading types for standard library!"
40 putStrLn $ unlines [ "Error reading types for standard library!"
40− , " " ++ show (err :: IOError)
41− , "The file should be located here: " ++ name
41+ , " The file should be at " ++ name
42− , " If you are using a stable version of Elm,"
42+ , " If you are using a stable version of Elm,"
43− , " please report an issue at github.com/evancz/Elm"
43+ , " please report an issue at github.com/evancz/Elm"
44− , " and specify your versions of Elm and your OS" ]
44+ , " and specify your versions of Elm and your OS" ]
45 exitFailure
45 exitFailure
47readDocs :: FilePath -> IO Interfaces
47readDocs :: FilePath -> IO Interfaces