Comments and layout only
authorSimon Peyton Jones <simonpj@microsoft.com>
Mon, 24 Oct 2011 17:04:53 +0000 (18:04 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Mon, 24 Oct 2011 17:04:53 +0000 (18:04 +0100)
compiler/basicTypes/Literal.lhs

index 889cd24..a3bd6fc 100644 (file)
@@ -376,12 +376,12 @@ literalType (MachWord64  _) = word64PrimTy
 literalType (MachFloat _)   = floatPrimTy
 literalType (MachDouble _)  = doublePrimTy
 literalType (MachLabel _ _ _) = addrPrimTy
-literalType (LitInteger _ mkIntegerId)
+literalType (LitInteger _ mk_integer_id)
       -- We really mean idType, rather than varType, but importing Id
       -- causes a module import loop
-    = case varType mkIntegerId of
-      FunTy _ (FunTy _ integerTy) -> integerTy
-      _ -> panic "literalType: mkIntegerId has the wrong type"
+    = case varType mk_integer_id of
+        FunTy _ (FunTy _ integerTy) -> integerTy
+        _ -> panic "literalType: mkIntegerId has the wrong type"
 
 absentLiteralOf :: TyCon -> Maybe Literal
 -- Return a literal of the appropriate primtive