-- 'reader' is synonym for 'asks'

getPort' :: MonadReader NetworkConfig m => m Port
getPort' = do
    cfg <- ask
    return (port cfg)
getPort' :: MonadReader NetworkConfig m => m Port
getPort' = do
    cfg <- ask
    return (port cfg)
getPort' = do
    cfg <- ask
    return (port cfg)