i3blocks-hs-contrib-1.0.0: OpenVpn/Main.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import           Common
import           Control.Applicative (liftA3)
import           Data.Bool           (bool)
import           Data.Text           (pack)
import           Turtle

main :: IO ()
main = sh $ processIsRunning "openvpn" >>=
  bool (printCommand "x") (printCommand "✓")

printCommand :: String -> Shell ()
printCommand out = liftIO $ putStrLn $ "\61676" ++ " " ++ out