Fix issue 4

This would have been a little clearer for me:
```haskell
let (k,_):_ = perfdataMetrics $ fromRight datum
```