@@ -28,7 +28,7 @@ import Data.Maybe (fromMaybe)
28import Data.Text (Text)
28import Data.Text (Text)
29import qualified Data.Text as T
29import qualified Data.Text as T
30import Text.Printf (printf)
30import Text.Printf (printf)
31−import Data.Char (ord, isAscii)
31+import Data.Char (ord, isAscii, isSpace)
32import System.Directory
32import System.Directory
33import System.Environment
33import System.Environment
34import System.Exit (ExitCode (..))
34import System.Exit (ExitCode (..))
@@ -93,7 +93,7 @@ makePDF program pdfargs writer opts doc =
93 uname <- E.catch
93 uname <- E.catch
94 (do (ec, sout, _) <- readProcessWithExitCode "uname" ["-o"] ""
94 (do (ec, sout, _) <- readProcessWithExitCode "uname" ["-o"] ""
95 if ec == ExitSuccess
95 if ec == ExitSuccess
96− then return $ Just sout
96+ then return $ Just $ filter (not . isSpace) sout
97 else return Nothing)
97 else return Nothing)
98 (\(_ :: E.SomeException) -> return Nothing)
98 (\(_ :: E.SomeException) -> return Nothing)
99 if '~' `elem` tmp || uname == Just "Cygwin" -- see #5451
99 if '~' `elem` tmp || uname == Just "Cygwin" -- see #5451