From 8daeabb589d33b15a08daaf02f9dbf96dad98091 Mon Sep 17 00:00:00 2001 From: Jose Duran Date: Thu, 1 Aug 2019 18:01:16 -0500 Subject: [PATCH] remove Seminearring class because it was not being used in V5 --- bloodhound.cabal | 1 - src/Database/V5/Bloodhound/Types.hs | 4 +--- src/Database/V5/Bloodhound/Types/Class.hs | 17 ----------------- 3 files changed, 1 insertion(+), 21 deletions(-) delete mode 100644 src/Database/V5/Bloodhound/Types/Class.hs diff --git a/bloodhound.cabal b/bloodhound.cabal index 725cf5f..87fbaf4 100644 --- a/bloodhound.cabal +++ b/bloodhound.cabal @@ -36,7 +36,6 @@ library exposed-modules: Database.V5.Bloodhound Database.V5.Bloodhound.Client Database.V5.Bloodhound.Types - Database.V5.Bloodhound.Types.Class Database.V5.Bloodhound.Internal.Aggregation Database.V5.Bloodhound.Internal.Analysis Database.V5.Bloodhound.Internal.Client diff --git a/src/Database/V5/Bloodhound/Types.hs b/src/Database/V5/Bloodhound/Types.hs index 266c022..da10241 100644 --- a/src/Database/V5/Bloodhound/Types.hs +++ b/src/Database/V5/Bloodhound/Types.hs @@ -122,7 +122,6 @@ module Database.V5.Bloodhound.Types , Hit(..) , HitFields(..) , Filter(..) - , Seminearring(..) , BoolMatch(..) , Term(..) , GeoPoint(..) @@ -418,9 +417,8 @@ module Database.V5.Bloodhound.Types import Bloodhound.Import -import Database.V5.Bloodhound.Types.Class -import Database.V5.Bloodhound.Internal.Analysis import Database.V5.Bloodhound.Internal.Aggregation +import Database.V5.Bloodhound.Internal.Analysis import Database.V5.Bloodhound.Internal.Client import Database.V5.Bloodhound.Internal.Highlight import Database.V5.Bloodhound.Internal.Newtypes diff --git a/src/Database/V5/Bloodhound/Types/Class.hs b/src/Database/V5/Bloodhound/Types/Class.hs deleted file mode 100644 index 6f3ecf7..0000000 --- a/src/Database/V5/Bloodhound/Types/Class.hs +++ /dev/null @@ -1,17 +0,0 @@ -{-# LANGUAGE CPP #-} -module Database.V5.Bloodhound.Types.Class - ( Seminearring(..) ) - where - -#if !MIN_VERSION_base(4,8,0) -import Data.Monoid -#endif - -class Monoid a => Seminearring a where - -- 0, +, * - (<||>) :: a -> a -> a - (<&&>) :: a -> a -> a - (<&&>) = mappend - -infixr 5 <||> -infixr 5 <&&>