based-0.1: src/Based.hs

{-# language
    MagicHash
  , PackageImports
#-}

module Based
  (
  ) where

import "base" GHC.Exts (TYPE, unsafeCoerce#)

coerce :: TYPE r1 -> TYPE r2
coerce = unsafeCoerce#