withOptions :: Configurable t => (t -> IO b) -> IO b
withOptions act = getOptions >>= act
withOptions :: Configurable t => (t -> IO b) -> IO b
withOptions act = getOptions >>= act
withOptions act = getOptions >>= act