hw-prim-0.0.3.8: src/HaskellWorks/Data/Naive.hs

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