summaryrefslogtreecommitdiff
path: root/Propellor.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-10 17:22:32 -0400
committerJoey Hess2014-04-10 17:23:43 -0400
commit25942fb0cca0ca90933026bf959506e099ff95a4 (patch)
tree2f84378c71abaa4458c5078e8cb8e6726bffbefd /Propellor.hs
parent5acaf8758f752574140dd79de7996d91a81d1cd4 (diff)
Propellor monad is a Reader for HostAttr
So far, the hostname is only used to improve a message in withPrivData, but I anticipate using HostAttr for a lot more.
Diffstat (limited to 'Propellor.hs')
-rw-r--r--Propellor.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/Propellor.hs b/Propellor.hs
index e39fc97d..1f1d7eca 100644
--- a/Propellor.hs
+++ b/Propellor.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE PackageImports #-}
+
-- | Pulls in lots of useful modules for building and using Properties.
--
-- Propellor enures that the system it's run in satisfies a list of
@@ -31,6 +33,7 @@ module Propellor (
, module Propellor.Property.Cmd
, module Propellor.PrivData
, module Propellor.Engine
+ , module Propellor.Exception
, module Propellor.Message
, localdir
@@ -43,6 +46,7 @@ import Propellor.Engine
import Propellor.Property.Cmd
import Propellor.PrivData
import Propellor.Message
+import Propellor.Exception
import Utility.PartialPrelude as X
import Utility.Process as X
@@ -62,6 +66,7 @@ import Control.Applicative as X
import Control.Monad as X
import Data.Monoid as X
import Control.Monad.IfElse as X
+import "mtl" Control.Monad.Reader as X
-- | This is where propellor installs itself when deploying a host.
localdir :: FilePath