diff --git a/Data/Array/Repa/Eval/Elt.hs b/Data/Array/Repa/Eval/Elt.hs
--- a/Data/Array/Repa/Eval/Elt.hs
+++ b/Data/Array/Repa/Eval/Elt.hs
@@ -4,7 +4,6 @@
 module Data.Array.Repa.Eval.Elt
         (Elt (..))
 where
-import GHC.Prim
 import GHC.Exts
 import GHC.Types
 import GHC.Word
@@ -125,7 +124,7 @@
 -- Floating -------------------------------------------------------------------
 instance Elt Float where
  {-# INLINE touch #-}
- touch (F# f)
+ touch f
   = IO (\state -> case touch# f state of
                         state' -> (# state', () #))
 
@@ -138,7 +137,7 @@
 
 instance Elt Double where
  {-# INLINE touch #-}
- touch (D# d)
+ touch d
   = IO (\state -> case touch# d state of
                         state' -> (# state', () #))
 
@@ -152,7 +151,7 @@
 -- Int ------------------------------------------------------------------------
 instance Elt Int where
  {-# INLINE touch #-}
- touch (I# i)
+ touch i
   = IO (\state -> case touch# i state of
                         state' -> (# state', () #))
 
@@ -164,7 +163,7 @@
 
 instance Elt Int8 where
  {-# INLINE touch #-}
- touch (I8# w)
+ touch w
   = IO (\state -> case touch# w state of
                         state' -> (# state', () #))
 
@@ -177,7 +176,7 @@
 
 instance Elt Int16 where
  {-# INLINE touch #-}
- touch (I16# w)
+ touch w
   = IO (\state -> case touch# w state of
                         state' -> (# state', () #))
 
@@ -190,7 +189,7 @@
 
 instance Elt Int32 where
  {-# INLINE touch #-}
- touch (I32# w)
+ touch w
   = IO (\state -> case touch# w state of
                         state' -> (# state', () #))
 
@@ -203,7 +202,7 @@
 
 instance Elt Int64 where
  {-# INLINE touch #-}
- touch (I64# w)
+ touch w
   = IO (\state -> case touch# w state of
                         state' -> (# state', () #))
 
@@ -217,7 +216,7 @@
 -- Word -----------------------------------------------------------------------
 instance Elt Word where
  {-# INLINE touch #-}
- touch (W# i)
+ touch i
   = IO (\state -> case touch# i state of
                         state' -> (# state', () #))
 
@@ -230,7 +229,7 @@
 
 instance Elt Word8 where
  {-# INLINE touch #-}
- touch (W8# w)
+ touch w
   = IO (\state -> case touch# w state of
                         state' -> (# state', () #))
 
@@ -243,7 +242,7 @@
 
 instance Elt Word16 where
  {-# INLINE touch #-}
- touch (W16# w)
+ touch w
   = IO (\state -> case touch# w state of
                         state' -> (# state', () #))
 
@@ -256,7 +255,7 @@
 
 instance Elt Word32 where
  {-# INLINE touch #-}
- touch (W32# w)
+ touch w
   = IO (\state -> case touch# w state of
                         state' -> (# state', () #))
 
@@ -269,7 +268,7 @@
 
 instance Elt Word64 where
  {-# INLINE touch #-}
- touch (W64# w)
+ touch w
   = IO (\state -> case touch# w state of
                         state' -> (# state', () #))
 
diff --git a/repa.cabal b/repa.cabal
--- a/repa.cabal
+++ b/repa.cabal
@@ -1,5 +1,5 @@
 Name:                repa
-Version:             3.4.1.5
+Version:             3.4.2.0
 License:             BSD3
 License-file:        LICENSE
 Author:              The DPH Team
@@ -25,12 +25,12 @@
 
 Library
   Build-Depends:
-        base                 >= 4.8 && < 4.17
+        base                 >= 4.8 && < 4.21
       , template-haskell
       , ghc-prim
-      , vector               >= 0.11 && < 0.13
-      , bytestring           >= 0.10 && < 0.12
-      , QuickCheck           >= 2.8  && < 2.15
+      , vector               >= 0.11 && < 0.14
+      , bytestring           >= 0.10 && < 0.13
+      , QuickCheck           >= 2.8  && < 2.16
 
   ghc-options:
         -Wall
@@ -48,7 +48,7 @@
   if flag(no-template-haskell)
     cpp-options: -DREPA_NO_TH
 
-  default-language:    Haskell2010
+  default-language: Haskell2010
 
   default-extensions:
         NoMonomorphismRestriction