如何在定义自己的ToJSon时避免循环导入

Question

我想在我的json导出中添加self链接，因此我在Model.hs：

instance ToJSON (Entity Event) where
    toJSON (Entity eid e) = object
        [ -- , "href" .= render EventR eid ]

但是我似乎无法"href" .= render EventR eid，因为如果我尝试Import Handler.Event我会收到循环依赖错误

编辑1：

似乎我有另一个问题，因为试图让render导致错误（因为它改变了返回值）。有没有办法逃避呢？

instance ToJSON (Entity Event) where
    toJSON (Entity eid e) = do
      render <- getUrlRender
      return $ object
          [ "href" .= render EventR eid ]