thereadme/serverman
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

feat(mac): add mac to Install and Env

Browse Source
This commit is contained in:
Mahdi Dibaiee 2017-02-19 14:12:18 +03:30
parent 5e88bfa6cc
commit cd44b525d1
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/System/Serverman/Actions/Env.hs
View File

@ -4,17 +4,18 @@ module System.Serverman.Actions.Env (OS(..), getOS) where
import System.IO.Error
import Data.Either
data OS = Debian | Arch | Unknown deriving (Show, Eq)
data OS = Debian | Arch | Mac | Unknown deriving (Show, Eq)
getOS = do
arch_release <- tryIOError $ readProcessWithExitCode "/usr/bin/cat" ["/etc/os-release"] ""
deb_release <- tryIOError $ readProcessWithExitCode "/usr/bin/cat" ["/etc/lsb-release"] ""
-- mac_release <- tryIOError $ readProcessWithExitCode "/usr/bin/sw_vers" ["-productVersion"] ""
mac_release <- tryIOError $ readProcessWithExitCode "/usr/bin/sw_vers" ["-productName"] ""
let (_, release, _) = head $ rights [arch_release, deb_release, mac_release]
distro
| or $ map (`isInfixOf` release) ["ubuntu", "debian", "raspbian"] = Debian
| "arch" `isInfixOf` release = Arch
| "Mac" `isInfixOf` release = Mac
| otherwise = Unknown
return distro

1
src/System/Serverman/Actions/Install.hs
View File

@ -25,6 +25,7 @@ module System.Serverman.Actions.Install (installService) where
let command = case os of
Arch -> "pacman -S "
Debian -> "apt-get install "
Mac -> "brew install "
_ -> "echo 'Unknown operating system'"
process <- async $ do