Remove unused module.

This commit is contained in:
Kei Hibino 2014-07-29 22:36:49 +09:00
parent cde497c55e
commit f6e3659df7
2 changed files with 0 additions and 33 deletions

View File

@ -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

View File

@ -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