mongodb - Persistent-mongoDB で MongoDB クエリセレクターを使用するにはどうすればよいですか? (イェソド)

Question

http://www.yesodweb.com/book/persistentにはドキュメントや例はありません

また、生のクエリの例も見つかりませんでした (明らかに、rawQueryはpersistent-mongoDBでは機能しません)。geospecial セレクター ( $near ) を使用する必要があるため、 selectListを呼び出すことはできません。

ただし、 Database.MongoDBで必要なことを行う方法があります。

rawrecs <- runDB $ find (select 
["loc" =: [
  "$near" =: [ 
    "$geometry" =: [ 
      "type" =: ("Point"::String), 
      "coordinates" =: [ (28.483334::Double),(49.233334::Double) ] 
    ], 
    "$maxDistance" =: (1000::Int) 
  ] 
]] "points") { limit = 10 } >>= rest
mapM_ (liftIO . putStrLn . show) rawrecs

次に、クエリ結果を永続エンティティに変換します。はい、動作しますが、少しトリッキーに見えます。

誰かがpersistent-mongoDBでこれを行うより正しい方法を知っていますか?

ありがとう ：）