@@ -1,8 +1,11 @@
1module Database.Bloodhound.Types.Class
2module Database.Bloodhound.Types.Class
2 ( Seminearring(..) )
3 ( Seminearring(..) )
6+#if !MIN_VERSION_base(4,8,0)
5import Data.Monoid
7import Data.Monoid
7class Monoid a => Seminearring a where
10class Monoid a => Seminearring a where
8 -- 0, +, *
11 -- 0, +, *