X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=GHC%2FHetMet%2FCodeTypes.hs;h=1d7357d99a0f74ce0fb8f66df1b2c01f212c1204;hb=1b021bc0b9fd1be269505d9a55bca9a1d6b4ded8;hp=18d85792ca02d1f2fd6677d3db8d74060e3fd58e;hpb=7623f639d3d11916ccae861491ff341d4779f9c9;p=ghc-base.git

diff --git a/GHC/HetMet/CodeTypes.hs b/GHC/HetMet/CodeTypes.hs
index 18d8579..1d7357d 100644
--- a/GHC/HetMet/CodeTypes.hs
+++ b/GHC/HetMet/CodeTypes.hs
@@ -17,10 +17,10 @@ module GHC.HetMet.CodeTypes (
   GuestCharLiteral, guestCharLiteral
 ) where
 
-hetmet_brak :: forall (c :: * -> * -> *). forall a. a -> <[a]>@c
+hetmet_brak :: forall (c :: * -> * -> *). forall a. a -> <{a}>@c
 hetmet_brak = Prelude.error "hetmet_brak should never be evaluated; did you forget to compile with -fcoqpass?"
 
-hetmet_esc  :: forall (c :: * -> * -> *). forall a. <[a]>@c -> a
+hetmet_esc  :: forall (c :: * -> * -> *). forall a. <{a}>@c -> a
 hetmet_esc = Prelude.error "hetmet_esc should never be evaluated; did you forget to compile with -fcoqpass?"
 
 hetmet_csp :: forall (c :: * -> * -> *). forall a. a -> a
@@ -30,8 +30,8 @@ hetmet_csp = Prelude.error "hetmet_csp should never be evaluated; did you forget
 -- compilation*; in the future I would like to use Template Haskell to
 -- do that.
 class GuestIntegerLiteral c where
-  guestIntegerLiteral :: Integer -> <[ Integer ]>@c
+  guestIntegerLiteral :: Integer -> <{ Integer }>@c
 class GuestStringLiteral c where
-  guestStringLiteral :: String -> <[ String ]>@c
+  guestStringLiteral :: String -> <{ String }>@c
 class GuestCharLiteral c where
-  guestCharLiteral :: Char -> <[ Char ]>@c
+  guestCharLiteral :: Char -> <{ Char }>@c