typelevel-1.2.2: src/Data/Proxify.hs

{-# LANGUAGE PolyKinds #-}

module Data.Proxify (module Data.Proxify, module X) where

import Data.Proxy as X


-- === Utils === --

type family Proxified a where
    Proxified (Proxy a) = a
    Proxified a         = a

proxify :: a -> Proxy (Proxified a)
proxify _ = Proxy


type family Deproxy p where Deproxy (Proxy a) = a