Simplify viewFieldBuilder

bitemyapp · Oct 19, 2023 · 1d2fc6d · 1d2fc6d
1 parent ab00454
commit 1d2fc6d
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/Database/Esqueleto/Internal/Internal.hs b/src/Database/Esqueleto/Internal/Internal.hs
@@ -590,10 +590,8 @@ ent ^. field
     ed = entityDef $ getEntityVal (Proxy :: Proxy (SqlExpr (Entity val)))
 
 viewFieldBuilder :: SqlExpr (Entity val) -> IdentInfo -> FieldDef -> TLB.Builder
-viewFieldBuilder (ERaw m f) info fieldDef 
-    | Just alias <- sqlExprMetaAlias m =
-        fst (f Never info) <> ("." <> useIdent info (aliasedEntityColumnIdent alias fieldDef))
-    | otherwise = sourceIdent info <> "." <> fieldIdent
+viewFieldBuilder (ERaw m f) info fieldDef =
+    sourceIdent info <> "." <> fieldIdent
   where
     sourceIdent = fst <$> f Never
     fieldIdent