diff --git a/hw-prim.cabal b/hw-prim.cabal
--- a/hw-prim.cabal
+++ b/hw-prim.cabal
@@ -1,5 +1,5 @@
 name:                   hw-prim
-version:                0.0.3.7
+version:                0.0.3.8
 synopsis:               Primitive functions and data types
 description:            Please see README.md
 homepage:               http://github.com/haskell-works/hw-prim#readme
@@ -29,6 +29,7 @@
                       , HaskellWorks.Data.Decode
                       , HaskellWorks.Data.FromByteString
                       , HaskellWorks.Data.FromForeignRegion
+                      , HaskellWorks.Data.Naive
                       , HaskellWorks.Data.Positioning
                       , HaskellWorks.Data.Search
                       , HaskellWorks.Data.TreeCursor
diff --git a/src/HaskellWorks/Data/Char/IsChar.hs b/src/HaskellWorks/Data/Char/IsChar.hs
--- a/src/HaskellWorks/Data/Char/IsChar.hs
+++ b/src/HaskellWorks/Data/Char/IsChar.hs
@@ -10,8 +10,8 @@
 
 instance IsChar Word8 where
   toChar = BI.w2c
-  {-# INLINABLE toChar #-}
+  {-# INLINE toChar #-}
 
 instance IsChar Char where
   toChar = id
-  {-# INLINABLE toChar #-}
+  {-# INLINE toChar #-}
diff --git a/src/HaskellWorks/Data/Naive.hs b/src/HaskellWorks/Data/Naive.hs
new file mode 100644
--- /dev/null
+++ b/src/HaskellWorks/Data/Naive.hs
@@ -0,0 +1,10 @@
+module HaskellWorks.Data.Naive
+    ( Naive(..)
+    , getNaive
+    ) where
+
+newtype Naive a = Naive a deriving (Eq, Show)
+
+getNaive :: Naive a -> a
+getNaive (Naive a) = a
+{-# INLINE getNaive #-}
diff --git a/src/HaskellWorks/Data/Search.hs b/src/HaskellWorks/Data/Search.hs
--- a/src/HaskellWorks/Data/Search.hs
+++ b/src/HaskellWorks/Data/Search.hs
@@ -11,4 +11,4 @@
     if w <= f m
       then binarySearch w f p m
       else binarySearch w f m q
-{-# INLINABLE binarySearch #-}
+{-# INLINE binarySearch #-}