summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/OS.hs
diff options
context:
space:
mode:
authorJoey Hess2015-10-19 12:33:18 -0400
committerJoey Hess2015-10-19 12:33:18 -0400
commitace352cc0aa732d00900122e0ab8552c870f3901 (patch)
tree53e8a1019203a94131592f18e280859108129183 /src/Propellor/Types/OS.hs
parent10286791b63b198de7d0dc3742f8e1d58113d3f1 (diff)
improve Info type using GADT, at nomeata's suggestion
This makes Show Info work, and simplifies the implementation.
Diffstat (limited to 'src/Propellor/Types/OS.hs')
-rw-r--r--src/Propellor/Types/OS.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Types/OS.hs b/src/Propellor/Types/OS.hs
index b16939c7..447d4396 100644
--- a/src/Propellor/Types/OS.hs
+++ b/src/Propellor/Types/OS.hs
@@ -42,10 +42,10 @@ type Architecture = String
type UserName = String
newtype User = User UserName
- deriving (Eq, Ord)
+ deriving (Eq, Ord, Show)
newtype Group = Group String
- deriving (Eq, Ord)
+ deriving (Eq, Ord, Show)
-- | Makes a Group with the same name as the User.
userGroup :: User -> Group