diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+### 0.2.0.2
+
+- Updated the Texture sample to adapt to luminance new texture interface.
+
 ### 0.2.0.1
 
 - Simplified the implementation of all samples.
diff --git a/luminance-samples.cabal b/luminance-samples.cabal
--- a/luminance-samples.cabal
+++ b/luminance-samples.cabal
@@ -1,5 +1,5 @@
 name:                luminance-samples
-version:             0.2.0.1
+version:             0.2.0.2
 synopsis:            Luminance samples
 description:         Luminance samples used as tutorial help
 homepage:            https://github.com/phaazon/luminance-samples
diff --git a/src/Texture.hs b/src/Texture.hs
--- a/src/Texture.hs
+++ b/src/Texture.hs
@@ -82,8 +82,10 @@
 
 createTexture_ :: (MonadIO m,MonadResource m) => Image PixelRGBA8 -> m (Texture2D RGBA8UI)
 createTexture_ img = do
-  tex <- createTexture (fromIntegral $ imageWidth img) (fromIntegral $ imageHeight img) 1 defaultSampling
-  uploadWhole tex False (convertV $ imageData img)
+  let w = fromIntegral $ imageWidth img
+      h = fromIntegral $ imageHeight img
+  tex <- createTexture (w,h) 1 defaultSampling
+  uploadSub tex (0,0) (w,h) False (convertV $ imageData img)
   pure tex
 
 convertV :: (Storable a) => S.Vector a -> Vector a