diff --git a/library/PtrPoker/UncheckedShifting.hs b/library/PtrPoker/UncheckedShifting.hs
--- a/library/PtrPoker/UncheckedShifting.hs
+++ b/library/PtrPoker/UncheckedShifting.hs
@@ -60,13 +60,18 @@
 #endif
 
 #if !defined(__HADDOCK__)
-shiftr_w16 (W16# w) (I# i) = W16# (w `uncheckedShiftRL#`   i)
-shiftr_w32 (W32# w) (I# i) = W32# (w `uncheckedShiftRL#`   i)
+#if __GLASGOW_HASKELL__ >= 920
+shiftr_w16 (W16# w) (I# i) = W16# (w `uncheckedShiftRLWord16#` i)
+shiftr_w32 (W32# w) (I# i) = W32# (w `uncheckedShiftRLWord32#` i)
+#else
+shiftr_w16 (W16# w) (I# i) = W16# (w `uncheckedShiftRL#`       i)
+shiftr_w32 (W32# w) (I# i) = W32# (w `uncheckedShiftRL#`       i)
+#endif
 
 #if WORD_SIZE_IN_BITS < 64
-shiftr_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftRL64#` i)
+shiftr_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftRL64#`     i)
 #else
-shiftr_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftRL#` i)
+shiftr_w64 (W64# w) (I# i) = W64# (w `uncheckedShiftRL#`       i)
 #endif
 
 #else
@@ -79,12 +84,7 @@
 -- Currently, it produces a runtime failure if the bitsize is different.
 -- This is detected by the testsuite.
 {-# INLINE caseWordSize_32_64 #-}
-caseWordSize_32_64 ::
-  -- | Value to use for 32-bit 'Word's
-  a ->
-  -- | Value to use for 64-bit 'Word's
-  a ->
-  a
+caseWordSize_32_64 :: a -> a -> a
 caseWordSize_32_64 f32 f64 =
   case finiteBitSize (undefined :: Word) of
     32 -> f32
diff --git a/ptr-poker.cabal b/ptr-poker.cabal
--- a/ptr-poker.cabal
+++ b/ptr-poker.cabal
@@ -1,5 +1,5 @@
 name: ptr-poker
-version: 0.1.2.1
+version: 0.1.2.2
 synopsis: Pointer poking action construction and composition toolkit
 homepage: https://github.com/nikita-volkov/ptr-poker
 bug-reports: https://github.com/nikita-volkov/ptr-poker/issues