From c7609c824ba1ce7cdcdf9c646b721db80333f04b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 15 Jan 2015 20:15:01 -0400 Subject: Add descriptions of how to set missing fields to --list-fields output. (Minor API changes) --- src/Propellor/Types/PrivData.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Propellor/Types') diff --git a/src/Propellor/Types/PrivData.hs b/src/Propellor/Types/PrivData.hs index c7909a6b..6b3c35a2 100644 --- a/src/Propellor/Types/PrivData.hs +++ b/src/Propellor/Types/PrivData.hs @@ -24,9 +24,11 @@ data PrivDataSource | PrivDataSourceFileFromCommand PrivDataField FilePath String | PrivDataSource PrivDataField String +type PrivDataSourceDesc = String + class IsPrivDataSource s where privDataField :: s -> PrivDataField - describePrivDataSource :: s -> Maybe String + describePrivDataSource :: s -> Maybe PrivDataSourceDesc instance IsPrivDataSource PrivDataField where privDataField = id -- cgit v1.2.3