55a8771 · reflex-dom · git.iko.soy

reflex-dom-core/reflex-dom-core.cabal+2−2

compare with develop

unifiedsplit

@@ -71,7 +71,7 @@ library

71 stm == 2.4.*,

72 text == 1.2.*,

73 these >= 0.4 && < 0.8,

74− time >= 1.4 && < 1.8,

74+ time >= 1.4 && < 1.9,

75 transformers >= 0.3 && < 0.6,

76 unbounded-delays >= 0.1.0.9 && < 0.2,

77 zenc == 0.1.*

@@ -145,7 +145,7 @@ library

145 dependent-sum == 0.4.*

146

147test-suite hlint

148− build-depends: base, hlint == 1.9.*

148+ build-depends: base, hlint

149 hs-source-dirs: test

150 main-is: hlint.hs

151 type: exitcode-stdio-1.0

reflex-dom-core/src/Foreign/JavaScript/TH.hs+1−1

@@ -423,7 +423,7 @@ instance MonadJS (JSCtx_JavaScriptCore x) (WithJSContext x IO) where

423 f $ JSUint8Array payloadRef

424 fromJSArray (JSRef_JavaScriptCore a) = liftJSM $ do

425 len <- round <$> (valToNumber =<< (a ^. js "length"))

426− forM [0..len-1] $ \i -> JSRef_JavaScriptCore <$> a !! i

426+ forM [0..len-1] $ fmap JSRef_JavaScriptCore . (a !!)

427 fromJSUint8Array a = do

428 vals <- fromJSArray a

429 doubles <- mapM fromJSNumber vals

reflex-dom-core/src/Reflex/Dom/Builder/Class.hs+1−1

@@ -649,7 +649,7 @@ instance MonadTransControlStateless (ReaderT r)

649type RunStateless t = forall n b. Monad n => t n b -> n b

650

651liftWithStateless :: forall m t a. (Monad m, MonadTransControlStateless t) => (RunStateless t -> m a) -> t m a

652−liftWithStateless a = liftWith $ \run -> a $ \x -> fromStT (Proxy :: Proxy t) <$> run x

652+liftWithStateless a = liftWith $ \run -> a $ fmap (fromStT (Proxy :: Proxy t)) . run

653

654liftTextNode :: (MonadTrans f, DomBuilder t m) => TextNodeConfig t -> f m (TextNode (DomBuilderSpace m) t)

655liftTextNode = lift . textNode

reflex-dom-core/src/Reflex/Dom/Specializations.hs−1

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

1{-# LANGUAGE FlexibleContexts #-}

2{-# LANGUAGE GADTs #-}

3−{-# LANGUAGE OverloadedStrings #-}

4{-# LANGUAGE Rank2Types #-}

3{-# LANGUAGE Rank2Types #-}

5{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE ScopedTypeVariables #-}

6module Reflex.Dom.Specializations where

5module Reflex.Dom.Specializations where

reflex-dom-core/src/Reflex/Dom/WebSocket/Foreign.hs+1−1

@@ -80,4 +80,4 @@ newWebSocket _ url onMessage onOpen onError onClose = do

80 return $ JSWebSocket ws

81

82onBSMessage :: Either ByteString JSVal -> JSM ByteString

83−onBSMessage = either return (\v -> encodeUtf8 <$> fromJSValUnchecked v)

83+onBSMessage = either return $ fmap encodeUtf8 . fromJSValUnchecked