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

switch to derived functor.

Browse Source
This commit is contained in:
Kei Hibino 2017-02-11 15:58:23 +09:00
parent 4d8098eeba
commit b96c4618d0
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
relational-query/src/Database/Relational/Query/Internal/Sub.hs
View File

@ -56,11 +56,9 @@ data SubQuery = Table Table.Untyped
newtype Qualifier = Qualifier Int deriving Show newtype Qualifier = Qualifier Int deriving Show
-- | Qualified query. -- | Qualified query.
data Qualified a = Qualified Qualifier a deriving Show data Qualified a =
Qualified Qualifier a
-- | 'Functor' instance of 'Qualified' deriving (Show, Functor)
instance Functor Qualified where
fmap f (Qualified q a) = Qualified q (f a)
-- | Projection structure unit -- | Projection structure unit
data ProjectionUnit data ProjectionUnit