summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/Val.hs
diff options
context:
space:
mode:
authorJoey Hess2015-09-08 22:37:11 -0400
committerJoey Hess2015-09-08 22:37:11 -0400
commit386281202d5cb526d1b35022b3709b1f1064f68e (patch)
tree7dcea4e59765d4e1bb76ca23b864befc4546068a /src/Propellor/Types/Val.hs
parentb38cedc0a81085dd5e4267866d1f460054d9c50d (diff)
parentd7a9157e7e1e8f447864d9d0cdd20ed1839fc23c (diff)
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor/Types/Val.hs')
-rw-r--r--src/Propellor/Types/Val.hs22
1 files changed, 0 insertions, 22 deletions
diff --git a/src/Propellor/Types/Val.hs b/src/Propellor/Types/Val.hs
deleted file mode 100644
index 8890bee8..00000000
--- a/src/Propellor/Types/Val.hs
+++ /dev/null
@@ -1,22 +0,0 @@
-module Propellor.Types.Val where
-
-import Data.Monoid
-
-import Propellor.Types.Empty
-
-data Val a = Val a | NoVal
- deriving (Eq, Show)
-
-instance Monoid (Val a) where
- mempty = NoVal
- mappend old new = case new of
- NoVal -> old
- _ -> new
-
-instance Empty (Val a) where
- isEmpty NoVal = True
- isEmpty _ = False
-
-fromVal :: Val a -> Maybe a
-fromVal (Val a) = Just a
-fromVal NoVal = Nothing