Repository : ssh://[email protected]/ghc

On branch  : type-nats-simple
Link       : 
http://ghc.haskell.org/trac/ghc/changeset/a4d2162182483143b1baf6855a84695597f22a9b/ghc

>---------------------------------------------------------------

commit a4d2162182483143b1baf6855a84695597f22a9b
Author: Iavor S. Diatchki <[email protected]>
Date:   Sat Sep 7 13:04:48 2013 -0700

    Fix typo in declaration of exponentiation constructor.


>---------------------------------------------------------------

a4d2162182483143b1baf6855a84695597f22a9b
 compiler/typecheck/TcTypeNats.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/typecheck/TcTypeNats.hs b/compiler/typecheck/TcTypeNats.hs
index 2061350..289b0e8 100644
--- a/compiler/typecheck/TcTypeNats.hs
+++ b/compiler/typecheck/TcTypeNats.hs
@@ -65,7 +65,7 @@ typeNatExpTyCon = mkTypeNatFunTyCon2 name
     , sfInteractInert = sfInteractInert trivialBuiltInFamily
     }
   where
-  name = mkWiredInTyConName UserSyntax gHC_TYPELITS (fsLit "*")
+  name = mkWiredInTyConName UserSyntax gHC_TYPELITS (fsLit "^")
                 typeNatExpTyFamNameKey typeNatExpTyCon
 
 -- Make a binary built-in constructor of kind: Nat -> Nat -> Nat


_______________________________________________
ghc-commits mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/ghc-commits

Reply via email to