git.iko.soy/typeable/servant-reflex
on master help sign in
PR cleanup
f6f3d08Schell Scivally
servant-reflex.cabal+1−2
compare with master
unifiedsplit
@@ -1,5 +1,5 @@
1Name: servant-reflex
1Name: servant-reflex
2−Version: 0.3.0
2+Version: 0.2.1
3Synopsis: Servant reflex API generator
3Synopsis: Servant reflex API generator
4Description: Servant reflex API generator
4Description: Servant reflex API generator
5License: AllRightsReserved
5License: AllRightsReserved
@@ -21,7 +21,6 @@ library
21
21
22 hs-source-dirs: src
22 hs-source-dirs: src
23 build-depends:
23 build-depends:
24− aeson,
25 base >= 4.8 && < 4.10,
24 base >= 4.8 && < 4.10,
26 bytestring >= 0.10 && < 0.11,
25 bytestring >= 0.10 && < 0.11,
27 case-insensitive >= 1.2.0.4 && < 1.3,
26 case-insensitive >= 1.2.0.4 && < 1.3,
src/Servant/Reflex.hs+1−3
@@ -25,7 +25,6 @@ module Servant.Reflex
25
25
26-------------------------------------------------------------------------------
26-------------------------------------------------------------------------------
27import Control.Applicative
27import Control.Applicative
28−import Data.Aeson (ToJSON, encode)
29import Data.CaseInsensitive (mk)
28import Data.CaseInsensitive (mk)
30import qualified Data.Map as Map
29import qualified Data.Map as Map
31import Data.Monoid ((<>))
30import Data.Monoid ((<>))
@@ -34,7 +33,6 @@ import qualified Data.Set as Set
34import Data.Text (Text)
33import Data.Text (Text)
35import qualified Data.Text as T
34import qualified Data.Text as T
36import qualified Data.Text.Encoding as E
35import qualified Data.Text.Encoding as E
37−import Debug.Trace (traceShow)
38import GHC.TypeLits (KnownSymbol, symbolVal)
36import GHC.TypeLits (KnownSymbol, symbolVal)
39import Reflex.Dom (Dynamic, Event, Reflex,
37import Reflex.Dom (Dynamic, Event, Reflex,
40 XhrRequest (..), XhrResponse (..),
38 XhrRequest (..), XhrResponse (..),
@@ -414,7 +412,7 @@ tattle = either Just (const Nothing)
414-- > where host = BaseUrl Http "localhost" 8080
412-- > where host = BaseUrl Http "localhost" 8080
415-- > -- then you can just use "addBook" to query that endpoint
413-- > -- then you can just use "addBook" to query that endpoint
416
414
417−instance (Show a, ToJSON a, MimeRender ct a, HasClient t m sublayout, Reflex t)
415+instance (MimeRender ct a, HasClient t m sublayout, Reflex t)
418 => HasClient t m (ReqBody (ct ': cts) a :> sublayout) where
416 => HasClient t m (ReqBody (ct ': cts) a :> sublayout) where
419
417
420 type Client t m (ReqBody (ct ': cts) a :> sublayout) =
418 type Client t m (ReqBody (ct ': cts) a :> sublayout) =