@@ -31,7 +31,6 @@ import Data.Map (Map)
3131import qualified Data.Map as Map
3232import Data.Maybe
3333import Data.Text (Text)
34−import qualified Data.Text as T
3534import Data.Text.Encoding
3635import Data.Traversable
3736import Reflex
@@ -132,7 +131,7 @@ postJson url a =
132131 , _xhrRequestConfig_sendData = Just body
133132 }
134133 where headerUrlEnc = "Content-type" =: "application/json"
135− body = LT.unpack . B.toLazyText . encodeToTextBuilder $ a
134+ body = LT.unpack $ B.toLazyText $ encodeToTextBuilder $ toJSON a
136135
137136getMay :: MonadWidget t m => (Event t a -> m (Event t b)) -> Event t (Maybe a) -> m (Event t (Maybe b))
138137getMay f e = do