getHostEntry is just an infinite loop

The current definition of `getHostEntry` is 

```
getHostEntry :: IO HostEntry
getHostEntry = withLock getHostEntry
```

which is just an infinite loop. I assume it should be

```
getHostEntry :: IO HostEntry
getHostEntry = withLock getHostEntry'
```