git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Merge pull request #854 from michaelficarra/GH-851
335345aPhil Freeman
psc-docs/Main.hs+2−2
compare with golang
unifiedsplit
@@ -28,7 +28,7 @@ import Options.Applicative
28import qualified Language.PureScript as P
28import qualified Language.PureScript as P
29import qualified Paths_purescript as Paths
29import qualified Paths_purescript as Paths
30import System.Exit (exitSuccess, exitFailure)
30import System.Exit (exitSuccess, exitFailure)
31−import System.IO (hPutStr, stderr)
31+import System.IO (hPutStrLn, stderr)
32
32
33
33
34data PSCDocsOptions = PSCDocsOptions
34data PSCDocsOptions = PSCDocsOptions
@@ -42,7 +42,7 @@ docgen (PSCDocsOptions showHierarchy input) = do
42 e <- P.parseModulesFromFiles (fromMaybe "") <$> mapM (fmap (first Just) . parseFile) (nub input)
42 e <- P.parseModulesFromFiles (fromMaybe "") <$> mapM (fmap (first Just) . parseFile) (nub input)
43 case e of
43 case e of
44 Left err -> do
44 Left err -> do
45− hPutStr stderr $ show err
45+ hPutStrLn stderr $ show err
46 exitFailure
46 exitFailure
47 Right ms -> do
47 Right ms -> do
48 putStrLn . runDocs $ (renderModules showHierarchy) (map snd ms)
48 putStrLn . runDocs $ (renderModules showHierarchy) (map snd ms)
psc/Main.hs+2−2
@@ -26,7 +26,7 @@ import Options.Applicative as Opts
26import System.Directory (createDirectoryIfMissing)
26import System.Directory (createDirectoryIfMissing)
27import System.FilePath (takeDirectory)
27import System.FilePath (takeDirectory)
28import System.Exit (exitSuccess, exitFailure)
28import System.Exit (exitSuccess, exitFailure)
29−import System.IO (hPutStr, hPutStrLn, stderr)
29+import System.IO (hPutStrLn, stderr)
30
30
31import qualified Language.PureScript as P
31import qualified Language.PureScript as P
32import qualified Paths_purescript as Paths
32import qualified Paths_purescript as Paths
@@ -58,7 +58,7 @@ compile (PSCOptions input opts stdin output externs usePrefix) = do
58 modules <- P.parseModulesFromFiles (fromMaybe "") <$> readInput (InputOptions (P.optionsNoPrelude opts) stdin input)
58 modules <- P.parseModulesFromFiles (fromMaybe "") <$> readInput (InputOptions (P.optionsNoPrelude opts) stdin input)
59 case modules of
59 case modules of
60 Left err -> do
60 Left err -> do
61− hPutStr stderr $ show err
61+ hPutStrLn stderr $ show err
62 exitFailure
62 exitFailure
63 Right ms -> do
63 Right ms -> do
64 case P.compile opts (map snd ms) prefix of
64 case P.compile opts (map snd ms) prefix of