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 #-}