Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Add a data type we can use to box up equality evidence for -XConstrai…

…ntKind
  • Loading branch information...
commit c7623fc11d5adc54d9b39fc83555dfecb0f639bd 1 parent 9cd14ba
@batterseapower batterseapower authored
Showing with 7 additions and 0 deletions.
  1. +7 −0 GHC/Types.hs
View
7 GHC/Types.hs
@@ -78,6 +78,13 @@ or the '>>' and '>>=' operations from the 'Monad' class.
newtype IO a = IO (State# RealWorld -> (# State# RealWorld, a #))
+-- | A data constructor used to box up all unlifted equalities
+--
+-- The type constructor is special in that GHC pretends that it
+-- has kind (? -> ? -> Fact) rather than (* -> * -> *)
+data (~) a b = Eq# ((~#) a b)
+
+
--------------------------------------------------------------------------------
-- Generic representations
--------------------------------------------------------------------------------
Please sign in to comment.
Something went wrong with that request. Please try again.