git.iko.soy/typeable/servant-reflex
on master help sign in
PR cleanup
commitf6f3d0815662e02a6b9732d697270ed593aa42f8 authorSchell Scivally <efsubenovex@gmail.com> dateTue 28 Feb 2017, 11:31 (10 years ago) parentd72d6a7
2 files changed+2−5
compare with master
unifiedsplit
servant-reflex.cabal+1−2 src/Servant/Reflex.hs+1−3
servant-reflex.cabal+1−2
@@ -1,5 +1,5 @@
11Name: servant-reflex
2−Version: 0.3.0
2+Version: 0.2.1
33Synopsis: Servant reflex API generator
44Description: Servant reflex API generator
55License: AllRightsReserved
@@ -21,7 +21,6 @@ library
2121
2222 hs-source-dirs: src
2323 build-depends:
24− aeson,
2524 base >= 4.8 && < 4.10,
2625 bytestring >= 0.10 && < 0.11,
2726 case-insensitive >= 1.2.0.4 && < 1.3,
src/Servant/Reflex.hs+1−3
@@ -25,7 +25,6 @@ module Servant.Reflex
2525
2626-------------------------------------------------------------------------------
2727import Control.Applicative
28−import Data.Aeson (ToJSON, encode)
2928import Data.CaseInsensitive (mk)
3029import qualified Data.Map as Map
3130import Data.Monoid ((<>))
@@ -34,7 +33,6 @@ import qualified Data.Set as Set
3433import Data.Text (Text)
3534import qualified Data.Text as T
3635import qualified Data.Text.Encoding as E
37−import Debug.Trace (traceShow)
3836import GHC.TypeLits (KnownSymbol, symbolVal)
3937import Reflex.Dom (Dynamic, Event, Reflex,
4038 XhrRequest (..), XhrResponse (..),
@@ -414,7 +412,7 @@ tattle = either Just (const Nothing)
414412-- > where host = BaseUrl Http "localhost" 8080
415413-- > -- then you can just use "addBook" to query that endpoint
416414
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)
418416 => HasClient t m (ReqBody (ct ': cts) a :> sublayout) where
419417
420418 type Client t m (ReqBody (ct ': cts) a :> sublayout) =