Commit ce6e1630 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Comments and layout only

parent 02779cb1
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment