From 380c1b0fd6c25dec3c924b82f1d721aa91a001da Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 23:37:54 -0400 Subject: prepare for hackage --- Types.hs | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100644 Types.hs (limited to 'Types.hs') diff --git a/Types.hs b/Types.hs deleted file mode 100644 index d22bd171..00000000 --- a/Types.hs +++ /dev/null @@ -1,22 +0,0 @@ -module Types where - -type HostName = String -type UserName = String - -data Property = Property - { propertyDesc :: Desc - -- must be idempotent; may run repeatedly - , propertySatisfy :: IO Result - } - -type Desc = String - -data Result = NoChange | MadeChange | FailedChange - deriving (Show, Eq) - -combineResult :: Result -> Result -> Result -combineResult FailedChange _ = FailedChange -combineResult _ FailedChange = FailedChange -combineResult MadeChange _ = MadeChange -combineResult _ MadeChange = MadeChange -combineResult NoChange NoChange = NoChange -- cgit v1.2.3