summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/Chroot.hs
blob: d4dd6eaeeddeaaa0b082c409848b6b4fd15bcce3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
module Propellor.Types.Chroot where

import Data.Monoid
import qualified Data.Map as M

data ChrootInfo h = ChrootInfo
	{ _chroots :: M.Map FilePath h
	}
	deriving (Show)

instance Monoid (ChrootInfo h) where
	mempty = ChrootInfo mempty
	mappend old new = ChrootInfo
		{ _chroots = M.union (_chroots old) (_chroots new)
		}