setting :: Store s => Settings (StateT (Status s) IO)
setting = setComplete cf defaultSettings
setting :: Store s => Settings (StateT (Status s) IO)
setting = setComplete cf defaultSettings
setting = setComplete cf defaultSettings