fieldName ::  forall record typ.  (PersistEntity record) => EntityField record typ -> DB.Label
fieldName f | fieldHaskell fd == HaskellName "Id" = id_
            | otherwise = unDBName $ fieldDB $ fd
  where
    fd = persistFieldDef f
fieldName ::  forall record typ.  (PersistEntity record) => EntityField record typ -> DB.Label
fieldName f | fieldHaskell fd == HaskellName "Id" = id_
            | otherwise = unDBName $ fieldDB $ fd
  where
    fd = persistFieldDef f
fieldName f | fieldHaskell fd == HaskellName "Id" = id_
            | otherwise = unDBName $ fieldDB $ fd
  where
    fd = persistFieldDef f