@@ -127,7 +127,7 @@ instance HasNodeId (Hold x p) where
127instance HasNodeId (SwitchSubscribed x a) where
127instance HasNodeId (SwitchSubscribed x a) where
128 getNodeId = switchSubscribedNodeId
128 getNodeId = switchSubscribedNodeId
130−instance HasNodeId (FanSubscribed x a) where
130+instance HasNodeId (FanSubscribed x v a) where
131 getNodeId = fanSubscribedNodeId
131 getNodeId = fanSubscribedNodeId
133instance HasNodeId (CoincidenceSubscribed x a) where
133instance HasNodeId (CoincidenceSubscribed x a) where