mirror of
https://github.com/khibino/haskell-relational-record.git
synced 2025-01-05 20:04:49 +03:00
Remove unused module.
This commit is contained in:
parent
cde497c55e
commit
f6e3659df7
@ -60,7 +60,6 @@ library
|
||||
Database.Relational.Query.Internal.AliasId
|
||||
Database.Relational.Query.Internal.SQL
|
||||
Database.Relational.Query.Internal.Product
|
||||
Database.Relational.Query.Monad.Trans.ListState
|
||||
Database.Relational.Query.Monad.Trans.JoinState
|
||||
Database.Relational.Query.Monad.Trans.RestrictingState
|
||||
Database.Relational.Query.Monad.Qualify
|
||||
|
@ -1,32 +0,0 @@
|
||||
-- |
|
||||
-- Module : Database.Relational.Query.Monad.Trans.ListState
|
||||
-- Copyright : 2013 Kei Hibino
|
||||
-- License : BSD3
|
||||
--
|
||||
-- Maintainer : ex8k.hibino@gmail.com
|
||||
-- Stability : experimental
|
||||
-- Portability : unknown
|
||||
--
|
||||
-- This module provides polymorphic list state definitions.
|
||||
module Database.Relational.Query.Monad.Trans.ListState (
|
||||
TermsContext, primeTermsContext, appendTerm, termsList
|
||||
) where
|
||||
|
||||
import Data.DList (DList, toList)
|
||||
import Data.Monoid (mempty, (<>))
|
||||
import Control.Applicative (pure)
|
||||
|
||||
-- | Type to accumulate terms.
|
||||
type TermsContext = DList
|
||||
|
||||
-- | Initial state for TermsContext.
|
||||
primeTermsContext :: TermsContext a
|
||||
primeTermsContext = mempty
|
||||
|
||||
-- | Append a new term.
|
||||
appendTerm :: a -> TermsContext a -> TermsContext a
|
||||
appendTerm at ctx = ctx <> pure at
|
||||
|
||||
-- | Result term list.
|
||||
termsList :: TermsContext a -> [a]
|
||||
termsList = toList
|
Loading…
Reference in New Issue
Block a user