Type error fetching from database

gistfile1.hs

data EventWithDistance = EventWithDistance
  { eventWithDistanceId        :: Int
  , eventWithDistanceEndedAt   :: LocalTime
  , eventWithDistanceName      :: T.Text
  , eventWithDistanceStartedAt :: LocalTime
  , eventWithDistanceUserId    :: Int
  , eventWithDistanceAddress   :: T.Text
  , eventWithDistanceLat       :: Float
  , eventWithDistanceLon       :: Float
  , eventWithDistanceDistance  :: Float
  }

-- A web handler threw an exception. Details:
-- Incompatible {errSQLType = "float8", errSQLTableOid = Just (Oid 16451), errSQLField = "lat", errHaskellType = "Float", errMessage = "types incompatible"}