b371e25 · typeable/bloodhound

git.iko.soy/typeable/bloodhound

on master help sign in

fixed doctests

b371e25Chris Allen11 years ago

src/Database/Bloodhound/Client.hs+15−9

compare with master

unifiedsplit

@@ -1,5 +1,5 @@

1−{-# LANGUAGE OverloadedStrings #-}

1+{-# LANGUAGE OverloadedStrings #-}

2−{-# LANGUAGE RecordWildCards #-}

2+{-# LANGUAGE RecordWildCards #-}

4-------------------------------------------------------------------------------

5-- |

@@ -58,7 +58,7 @@ module Database.Bloodhound.Client

58 )

59 where

61−import qualified Blaze.ByteString.Builder as BB

61+import qualified Blaze.ByteString.Builder as BB

62import Control.Applicative

63import Control.Monad

64import Control.Monad.Catch

@@ -119,13 +119,19 @@ import Database.Bloodhound.Types

119-- , message = "Use haskell!"

120-- , age = 10000

121-- , location = Location 40.12 (-71.34) }

122−--instance ToJSON Tweet

122+--instance ToJSON Tweet where

123+-- toJSON = genericToJSON defaultOptions

123−--instance FromJSON Tweet

124+--instance FromJSON Tweet where

125+-- parseJSON = genericParseJSON defaultOptions

124−--instance ToJSON Location

126+--instance ToJSON Location where

127+-- toJSON = genericToJSON defaultOptions

125−--instance FromJSON Location

128+--instance FromJSON Location where

129+-- parseJSON = genericParseJSON defaultOptions

126--data BulkTest = BulkTest { name :: Text } deriving (Eq, Generic, Show)

130--data BulkTest = BulkTest { name :: Text } deriving (Eq, Generic, Show)

127−--instance FromJSON BulkTest

131+--instance FromJSON BulkTest where

132+-- parseJSON = genericParseJSON defaultOptions

128−--instance ToJSON BulkTest

133+--instance ToJSON BulkTest where

134+-- toJSON = genericToJSON defaultOptions

129-- :}

135-- :}

130

136

131-- | 'mkShardCount' is a straight-forward smart constructor for 'ShardCount'

137-- | 'mkShardCount' is a straight-forward smart constructor for 'ShardCount'

src/Database/Bloodhound/Types.hs+85−42

@@ -2049,48 +2049,91 @@ instance ToJSON MatchQueryType where

2049instance ToJSON FieldName where

2050 toJSON (FieldName fieldName) = String fieldName

2051

2052−instance ToJSON ReplicaCount

2052+instance ToJSON ReplicaCount where

2053+ toJSON = genericToJSON defaultOptions

2053−instance ToJSON ShardCount

2054+instance ToJSON ShardCount where

2055+ toJSON = genericToJSON defaultOptions

2054−instance ToJSON CutoffFrequency

2056+instance ToJSON CutoffFrequency where

2057+ toJSON = genericToJSON defaultOptions

2055−instance ToJSON Analyzer

2058+instance ToJSON Analyzer where

2059+ toJSON = genericToJSON defaultOptions

2056−instance ToJSON MaxExpansions

2060+instance ToJSON MaxExpansions where

2061+ toJSON = genericToJSON defaultOptions

2057−instance ToJSON Lenient

2062+instance ToJSON Lenient where

2063+ toJSON = genericToJSON defaultOptions

2058−instance ToJSON Boost

2064+instance ToJSON Boost where

2065+ toJSON = genericToJSON defaultOptions

2059−instance ToJSON Version

2066+instance ToJSON Version where

2067+ toJSON = genericToJSON defaultOptions

2060−instance ToJSON Tiebreaker

2068+instance ToJSON Tiebreaker where

2069+ toJSON = genericToJSON defaultOptions

2061−instance ToJSON MinimumMatch

2070+instance ToJSON MinimumMatch where

2071+ toJSON = genericToJSON defaultOptions

2062−instance ToJSON DisableCoord

2072+instance ToJSON DisableCoord where

2073+ toJSON = genericToJSON defaultOptions

2063−instance ToJSON PrefixLength

2074+instance ToJSON PrefixLength where

2075+ toJSON = genericToJSON defaultOptions

2064−instance ToJSON Fuzziness

2076+instance ToJSON Fuzziness where

2077+ toJSON = genericToJSON defaultOptions

2065−instance ToJSON IgnoreTermFrequency

2078+instance ToJSON IgnoreTermFrequency where

2079+ toJSON = genericToJSON defaultOptions

2066−instance ToJSON MaxQueryTerms

2080+instance ToJSON MaxQueryTerms where

2081+ toJSON = genericToJSON defaultOptions

2067−instance ToJSON TypeName

2082+instance ToJSON TypeName where

2083+ toJSON = genericToJSON defaultOptions

2068−instance ToJSON IndexName

2084+instance ToJSON IndexName where

2085+ toJSON = genericToJSON defaultOptions

2069−instance ToJSON TemplateName

2086+instance ToJSON TemplateName where

2087+ toJSON = genericToJSON defaultOptions

2070−instance ToJSON TemplatePattern

2088+instance ToJSON TemplatePattern where

2089+ toJSON = genericToJSON defaultOptions

2071−instance ToJSON BoostTerms

2090+instance ToJSON BoostTerms where

2091+ toJSON = genericToJSON defaultOptions

2072−instance ToJSON MaxWordLength

2092+instance ToJSON MaxWordLength where

2093+ toJSON = genericToJSON defaultOptions

2073−instance ToJSON MinWordLength

2094+instance ToJSON MinWordLength where

2095+ toJSON = genericToJSON defaultOptions

2074−instance ToJSON MaxDocFrequency

2096+instance ToJSON MaxDocFrequency where

2097+ toJSON = genericToJSON defaultOptions

2075−instance ToJSON MinDocFrequency

2098+instance ToJSON MinDocFrequency where

2099+ toJSON = genericToJSON defaultOptions

2076−instance ToJSON PhraseSlop

2100+instance ToJSON PhraseSlop where

2101+ toJSON = genericToJSON defaultOptions

2077−instance ToJSON StopWord

2102+instance ToJSON StopWord where

2103+ toJSON = genericToJSON defaultOptions

2078−instance ToJSON QueryPath

2104+instance ToJSON QueryPath where

2105+ toJSON = genericToJSON defaultOptions

2079−instance ToJSON MinimumTermFrequency

2106+instance ToJSON MinimumTermFrequency where

2107+ toJSON = genericToJSON defaultOptions

2080−instance ToJSON PercentMatch

2108+instance ToJSON PercentMatch where

2109+ toJSON = genericToJSON defaultOptions

2081−instance ToJSON MappingName

2110+instance ToJSON MappingName where

2111+ toJSON = genericToJSON defaultOptions

2082−instance ToJSON DocId

2112+instance ToJSON DocId where

2113+ toJSON = genericToJSON defaultOptions

2083−instance ToJSON QueryString

2114+instance ToJSON QueryString where

2115+ toJSON = genericToJSON defaultOptions

2084−instance ToJSON AllowLeadingWildcard

2116+instance ToJSON AllowLeadingWildcard where

2117+ toJSON = genericToJSON defaultOptions

2085−instance ToJSON LowercaseExpanded

2118+instance ToJSON LowercaseExpanded where

2119+ toJSON = genericToJSON defaultOptions

2086−instance ToJSON AnalyzeWildcard

2120+instance ToJSON AnalyzeWildcard where

2121+ toJSON = genericToJSON defaultOptions

2087−instance ToJSON GeneratePhraseQueries

2122+instance ToJSON GeneratePhraseQueries where

2123+ toJSON = genericToJSON defaultOptions

2088−instance ToJSON Locale

2124+instance ToJSON Locale where

2125+ toJSON = genericToJSON defaultOptions

2089−instance ToJSON EnablePositionIncrements

2126+instance ToJSON EnablePositionIncrements where

2127+ toJSON = genericToJSON defaultOptions

2128+

2090−instance FromJSON Version

2129+instance FromJSON Version where

2130+ parseJSON = genericParseJSON defaultOptions

2091−instance FromJSON IndexName

2131+instance FromJSON IndexName where

2132+ parseJSON = genericParseJSON defaultOptions

2092−instance FromJSON MappingName

2133+instance FromJSON MappingName where

2134+ parseJSON = genericParseJSON defaultOptions

2093−instance FromJSON DocId

2135+instance FromJSON DocId where

2136+ parseJSON = genericParseJSON defaultOptions

2094

2137

2095

2138

2096instance FromJSON Status where

2139instance FromJSON Status where

stack-7.10.yaml+1

@@ -4,6 +4,7 @@ packages:

4extra-deps:

5- aeson-0.10.0.0

6- http-types-0.9

7+- http-client-0.4.24

7- attoparsec-0.13.0.1

8- attoparsec-0.13.0.1

8- doctest-0.10.1

9- doctest-0.10.1

9- doctest-prop-0.2.0.1

10- doctest-prop-0.2.0.1

stack-7.8.yaml+3

@@ -2,6 +2,9 @@ flags: {}

2packages:

3- '.'

4extra-deps:

5+- aeson-0.10.0.0

6+- http-types-0.9

7+- http-client-0.4.24

5- doctest-0.10.1

8- doctest-0.10.1

6- doctest-prop-0.2.0.1

9- doctest-prop-0.2.0.1

7- quickcheck-properties-0.1

10- quickcheck-properties-0.1