diff --git a/FWGL/Backend/JavaScript.hs b/FWGL/Backend/JavaScript.hs
--- a/FWGL/Backend/JavaScript.hs
+++ b/FWGL/Backend/JavaScript.hs
@@ -26,6 +26,24 @@
         \img.onload = function() { return $2(img); };  "
         loadImageRaw :: JSString -> JSFun (JSRef a -> IO ()) -> IO ()
 
+foreign import javascript unsafe
+        "var xhr = new XMLHttpRequest;                  \
+        \xhr.open(\"GET\", $1, true);                   \
+        \xhr.onreadystatechange = function () {         \
+        \        if (xhr.readyState == 4) {             \
+        \               if (xhr.status == 200) {        \
+        \                       $2(xhr.responseText);   \
+        \               } else {                        \
+        \                       $3(xhr.responseText);   \
+        \               }                               \
+        \       }                                       \
+        \};                                             \
+        \xhr.send();                                    "
+         loadTextFileRaw :: JSString
+                         -> JSFun (JSString -> IO ())
+                         -> JSFun (JSString -> IO ())
+                         -> IO ()
+
 foreign import javascript unsafe "document.querySelector($1)"
         query :: JSString -> IO (JSRef a)
 
@@ -47,6 +65,14 @@
                         do (Just w) <- getProp "width" img >>= fromJSRef
                            (Just h) <- getProp "height" img >>= fromJSRef
                            f (img, w, h)
+
+        loadTextFile url f =
+                do fRight <- asyncCallback1 NeverRetain $
+                                f . Right . fromJSString
+                   fLeft <- asyncCallback1 NeverRetain $
+                                f . Left . fromJSString
+                   forkIO $ loadTextFileRaw (toJSString url) fRight fLeft
+                   return ()
 
         setup initState draw customInp sigf =
                 do element <- query $ toJSString "canvas"
diff --git a/FWGL/Backend/JavaScript/WebGL/Types.hs b/FWGL/Backend/JavaScript/WebGL/Types.hs
--- a/FWGL/Backend/JavaScript/WebGL/Types.hs
+++ b/FWGL/Backend/JavaScript/WebGL/Types.hs
@@ -74,6 +74,9 @@
 data Texture_
 type Texture = JSRef Texture_
 
+instance Eq Texture where
+        (==) = eqRef
+
 data UniformLocation_
 type UniformLocation = JSRef UniformLocation_
 
diff --git a/fwgl-javascript.cabal b/fwgl-javascript.cabal
--- a/fwgl-javascript.cabal
+++ b/fwgl-javascript.cabal
@@ -1,5 +1,5 @@
 name:                fwgl-javascript
-version:             0.1.0.4
+version:             0.1.0.5
 synopsis:            FWGL GHCJS backend
 description:         FWGL GHCJS backend
 homepage:            https://github.com/ziocroc/FWGL
@@ -16,6 +16,6 @@
   exposed-modules:     FWGL.Backend.JavaScript
   other-modules:       FWGL.Backend.JavaScript.WebGL, FWGL.Backend.JavaScript.Event, FWGL.Backend.JavaScript.WebGL.Const, FWGL.Backend.JavaScript.WebGL.Types, FWGL.Backend.JavaScript.WebGL.Raw
   other-extensions:    FlexibleInstances, MultiParamTypeClasses, TypeSynonymInstances
-  build-depends:       fwgl >= 0.1 && < 0.2, Yampa, base >=4.7 && <4.9, hashable >=1.2 && <1.3, unordered-containers >=0.2 && <0.3, ghcjs-base
+  build-depends:       fwgl > 0.1.2.0 && < 0.2, Yampa, base >=4.7 && <4.9, hashable >=1.2 && <1.3, unordered-containers >=0.2 && <0.3, ghcjs-base
   hs-source-dirs:      .
   default-language:    Haskell2010