khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-15 14:53:28 +03:00
Code Issues Projects Releases Wiki Activity

Remove redundant definition.

Browse Source
This commit is contained in:
Kei Hibino 2013-08-29 21:51:57 +09:00
parent e5e5d246d0
commit 9fb5a74317
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
relational-join/src/Database/Relational/Query/Projectable.hs
View File

@ -83,13 +83,13 @@ sqlTermsString = d where
d ([c]) = c
d (cs) = paren $ intercalate ", " cs
-- | SQL expression strings which represent projection.
sqlStringOfProjection :: Projection c r -> String
sqlStringOfProjection = sqlTermsString . map stringFromColumnSQL . columns
-- | Unsafely get SQL term from 'Proejction'.
unsafeShowSqlProjection :: Projection c r -> String
unsafeShowSqlProjection = sqlTermsString . map stringFromColumnSQL . columns
-- | 'Expr' from 'Projection'
exprOfProjection :: Projection c r -> Expr c r
exprOfProjection = UnsafeExpr.Expr . sqlStringOfProjection
exprOfProjection = UnsafeExpr.Expr . unsafeShowSqlProjection
-- | Project from Projection type into expression type.
expr :: Projection p a -> Expr p a
@ -153,10 +153,6 @@ unsafeShowSqlExpr = UnsafeExpr.showExpr
instance ProjectableShowSql (Expr p) where
unsafeShowSql = unsafeShowSqlExpr
-- | Unsafely get SQL term from 'Proejction'.
unsafeShowSqlProjection :: Projection c r -> String
unsafeShowSqlProjection = sqlStringOfProjection
-- | Unsafely get SQL term from 'Proejction'.
instance ProjectableShowSql (Projection c) where
unsafeShowSql = unsafeShowSqlProjection