While every empty list encodes equally into JSON, use a type annotation that better reflects the actual content of the list.
Signed-off-by: Klaus Aehlig <[email protected]> --- src/Ganeti/Query/Locks.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Ganeti/Query/Locks.hs b/src/Ganeti/Query/Locks.hs index 90d8a54..183d8a8 100644 --- a/src/Ganeti/Query/Locks.hs +++ b/src/Ganeti/Query/Locks.hs @@ -50,7 +50,7 @@ getOwners :: RuntimeData -> a -> ResultEntry getOwners (Just (_, ownerinfo)) _ = rsNormal . map (J.encode . ciIdentifier . fst) $ ownerinfo -getOwners _ _ = rsNormal ([] :: [(ClientId, OwnerState)]) +getOwners _ _ = rsNormal ([] :: [ClientId]) -- | Obtain the mode of a lock from the runtime data. getMode :: RuntimeData -> a -> ResultEntry -- 2.0.0.526.g5318336
