Category "haversine"

Haskell - Incorrect distance returning from Haversine

I have the code below for calculating the Haversine distance between a list of airports, however it is consistently returning the incorrect value. For example,

Find documents in mongoDB collection by coordinates via haversine formula

I have this structure in my collection { "categorie" : "Introduction", "quart" : "jour", "pdq" : 23, "x" : 302375.197993, "y" : 5046522.116