diff options
| author | Joey Hess <joey@kitenet.net> | 2014-05-31 20:48:23 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-05-31 20:48:23 -0400 |
| commit | 58c8d74b4c4917f9f5e566709202ad432a7b2a6f (patch) | |
| tree | 65da63c631e875a1bf074da920e145d07d011698 /src/Propellor/PrivData.hs | |
| parent | e133536c3f7cc4dd816b8c5fe97e3131411a5ae9 (diff) | |
simplified record accessors
Diffstat (limited to 'src/Propellor/PrivData.hs')
| -rw-r--r-- | src/Propellor/PrivData.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Propellor/PrivData.hs b/src/Propellor/PrivData.hs index ad2c8d22..54f67d73 100644 --- a/src/Propellor/PrivData.hs +++ b/src/Propellor/PrivData.hs @@ -13,7 +13,6 @@ import Control.Monad import "mtl" Control.Monad.Reader import Propellor.Types -import Propellor.Attr import Propellor.Message import Utility.Monad import Utility.PartialPrelude @@ -30,7 +29,7 @@ withPrivData :: PrivDataField -> (String -> Propellor Result) -> Propellor Resul withPrivData field a = maybe missing a =<< liftIO (getPrivData field) where missing = do - host <- getHostName + host <- asks hostName let host' = if ".docker" `isSuffixOf` host then "$parent_host" else host |