deal with uname -o newline

This commit is contained in:
Joey Hess 2018-04-25 16:53:17 -04:00
parent abbe5fb516
commit 6e862f47dd
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -11,4 +11,4 @@ import Common
-- Detect when the Linux build is running on Android, eg in termux. -- Detect when the Linux build is running on Android, eg in termux.
osAndroid :: IO Bool osAndroid :: IO Bool
osAndroid = ("Android" == ) <$> readProcess "uname" ["-o"] osAndroid = ("Android" `isPrefixOf` ) <$> readProcess "uname" ["-o"]