gistfile1.txt

data ZpoolCMD = Status | Clear

zpoolExec :: ZpoolCMD -> String
zpoolExec cmd =
  case cmd of
    --Status    -> (return $ zpoolStatus)
    Clear     -> zpoolClear
    _         -> "... uh... something else"

zpoolStatus :: IO String
zpoolStatus = do
 r <- readProcess "git" ["rev-parse", "HEAD"] ""
 return $ foo r

foo :: String -> String
foo s = s

zpoolClear :: String
zpoolClear = "unknown"