on develop help sign in
Cleanup redundant ghcjs checking.
268f7e6Luigy Leon
reflex-dom-core/src-ghcjs/Reflex/Dom/WebSocket/Internal.hs+2−3
@@ -12,10 +12,9 @@ import System.IO.Unsafe
12-- When on ghcjs and using packages with jsstring patches it removes the FromJSVal
12-- When on ghcjs and using packages with jsstring patches it removes the FromJSVal
13-- instance for Value from ghcjs-base. This makes it so that if the patches
13-- instance for Value from ghcjs-base. This makes it so that if the patches
14-- are used then the instance comes from ghcjs-json
14-- are used then the instance comes from ghcjs-json
15−#if defined(ghcjs_HOST_OS) && defined(USE_TEXT_JSSTRING)
15+#ifdef USE_TEXT_JSSTRING
16import JavaScript.JSON.Types.FromJSVal ()
16import JavaScript.JSON.Types.FromJSVal ()
17−#endif
17+#else
18−#if defined(ghcjs_HOST_OS) && !defined(USE_TEXT_JSSTRING)
19import GHCJS.Marshal ()
18import GHCJS.Marshal ()
20#endif
19#endif
21
20