git.iko.soy/typeable/bloodhound
on master help sign in
remove Seminearring class because it was not being used in V5
8daeabbJose Duran
bloodhound.cabal−1
@@ -36,7 +36,6 @@ library
36 exposed-modules: Database.V5.Bloodhound
36 exposed-modules: Database.V5.Bloodhound
37 Database.V5.Bloodhound.Client
37 Database.V5.Bloodhound.Client
38 Database.V5.Bloodhound.Types
38 Database.V5.Bloodhound.Types
39− Database.V5.Bloodhound.Types.Class
40 Database.V5.Bloodhound.Internal.Aggregation
39 Database.V5.Bloodhound.Internal.Aggregation
41 Database.V5.Bloodhound.Internal.Analysis
40 Database.V5.Bloodhound.Internal.Analysis
42 Database.V5.Bloodhound.Internal.Client
41 Database.V5.Bloodhound.Internal.Client
src/Database/V5/Bloodhound/Types.hs+1−3
@@ -122,7 +122,6 @@ module Database.V5.Bloodhound.Types
122 , Hit(..)
122 , Hit(..)
123 , HitFields(..)
123 , HitFields(..)
124 , Filter(..)
124 , Filter(..)
125− , Seminearring(..)
126 , BoolMatch(..)
125 , BoolMatch(..)
127 , Term(..)
126 , Term(..)
128 , GeoPoint(..)
127 , GeoPoint(..)
@@ -418,9 +417,8 @@ module Database.V5.Bloodhound.Types
418
417
419import Bloodhound.Import
418import Bloodhound.Import
420
419
421−import Database.V5.Bloodhound.Types.Class
422−import Database.V5.Bloodhound.Internal.Analysis
423import Database.V5.Bloodhound.Internal.Aggregation
420import Database.V5.Bloodhound.Internal.Aggregation
421+import Database.V5.Bloodhound.Internal.Analysis
424import Database.V5.Bloodhound.Internal.Client
422import Database.V5.Bloodhound.Internal.Client
425import Database.V5.Bloodhound.Internal.Highlight
423import Database.V5.Bloodhound.Internal.Highlight
426import Database.V5.Bloodhound.Internal.Newtypes
424import Database.V5.Bloodhound.Internal.Newtypes
src/Database/V5/Bloodhound/Types/Class.hsdeleted−17
@@ -1,17 +0,0 @@
1−{-# LANGUAGE CPP #-}
2−module Database.V5.Bloodhound.Types.Class
3− ( Seminearring(..) )
4− where
5−
6−#if !MIN_VERSION_base(4,8,0)
7−import Data.Monoid
8−#endif
9−
10−class Monoid a => Seminearring a where
11− -- 0, +, *
12− (<||>) :: a -> a -> a
13− (<&&>) :: a -> a -> a
14− (<&&>) = mappend
15−
16−infixr 5 <||>
17−infixr 5 <&&>