craft-0.0.0.1: src/Craft/Facter.hs

module Craft.Facter where

import           Craft


setup :: Craft ()
setup = craft_ $ package "facter"


fact :: String -> Craft String
fact f = rmTrailingNL <$> ($stdoutOrError =<< exec "facter" [f])


rmTrailingNL :: String -> String
rmTrailingNL = reverse . dropWhile (=='\n') . reverse