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

module HaskellWorks.Data.Naive
    ( Naive(..)
    , naive
    ) where

newtype Naive a = Naive a deriving (Eq, Show)

naive :: Naive a -> a
naive (Naive a) = a
{-# INLINE naive #-}