Whitespace only

compiler/prelude/PrelRules.lhs

@@ -623,42 +623,42 @@ builtinIntegerRules :: [CoreRule]
 builtinIntegerRules =
  [-- TODO: smallInteger rule
   -- TODO: wordToInteger rule
-  rule_convert        "integerToWord"     integerToWordName     mkWordLitWord,
-  rule_convert        "integerToInt"      integerToIntName      mkIntLitInt,
-  rule_convert        "integerToWord64"   integerToWord64Name   mkWord64LitWord64,
+  rule_convert        "integerToWord"       integerToWordName       mkWordLitWord,
+  rule_convert        "integerToInt"        integerToIntName        mkIntLitInt,
+  rule_convert        "integerToWord64"     integerToWord64Name     mkWord64LitWord64,
   -- TODO: word64ToInteger rule
-  rule_convert        "integerToInt64"    integerToInt64Name    mkInt64LitInt64,
+  rule_convert        "integerToInt64"      integerToInt64Name      mkInt64LitInt64,
   -- TODO: int64ToInteger rule
-  rule_binop          "plusInteger"       plusIntegerName       (+),
-  rule_binop          "minusInteger"      minusIntegerName      (-),
-  rule_binop          "timesInteger"      timesIntegerName      (*),
-  rule_unop           "negateInteger"     negateIntegerName     negate,
-  rule_binop_Bool     "eqInteger"         eqIntegerName         (==),
-  rule_binop_Bool     "neqInteger"        neqIntegerName        (/=),
-  rule_unop           "absInteger"        absIntegerName        abs,
-  rule_unop           "signumInteger"     signumIntegerName     signum,
-  rule_binop_Bool     "leInteger"         leIntegerName         (<=),
-  rule_binop_Bool     "gtInteger"         gtIntegerName         (>),
-  rule_binop_Bool     "ltInteger"         ltIntegerName         (<),
-  rule_binop_Bool     "geInteger"         geIntegerName         (>=),
-  rule_binop_Ordering "compareInteger"    compareIntegerName    compare,
-  rule_divop_both     "divModInteger"     divModIntegerName     divMod,
-  rule_divop_both     "quotRemInteger"    quotRemIntegerName    quotRem,
-  rule_divop_one      "quotInteger"       quotIntegerName       quot,
-  rule_divop_one      "remInteger"        remIntegerName        rem,
+  rule_binop          "plusInteger"         plusIntegerName         (+),
+  rule_binop          "minusInteger"        minusIntegerName        (-),
+  rule_binop          "timesInteger"        timesIntegerName        (*),
+  rule_unop           "negateInteger"       negateIntegerName       negate,
+  rule_binop_Bool     "eqInteger"           eqIntegerName           (==),
+  rule_binop_Bool     "neqInteger"          neqIntegerName          (/=),
+  rule_unop           "absInteger"          absIntegerName          abs,
+  rule_unop           "signumInteger"       signumIntegerName       signum,
+  rule_binop_Bool     "leInteger"           leIntegerName           (<=),
+  rule_binop_Bool     "gtInteger"           gtIntegerName           (>),
+  rule_binop_Bool     "ltInteger"           ltIntegerName           (<),
+  rule_binop_Bool     "geInteger"           geIntegerName           (>=),
+  rule_binop_Ordering "compareInteger"      compareIntegerName      compare,
+  rule_divop_both     "divModInteger"       divModIntegerName       divMod,
+  rule_divop_both     "quotRemInteger"      quotRemIntegerName      quotRem,
+  rule_divop_one      "quotInteger"         quotIntegerName         quot,
+  rule_divop_one      "remInteger"          remIntegerName          rem,
   rule_encodeFloat    "encodeFloatInteger"  encodeFloatIntegerName  mkFloatLitFloat,
-  rule_convert        "floatFromInteger"  floatFromIntegerName  mkFloatLitFloat,
+  rule_convert        "floatFromInteger"    floatFromIntegerName    mkFloatLitFloat,
   rule_encodeFloat    "encodeDoubleInteger" encodeDoubleIntegerName mkDoubleLitDouble,
   -- TODO: decodeDoubleInteger rule
-  rule_convert        "doubleFromInteger" doubleFromIntegerName mkDoubleLitDouble,
-  rule_binop          "gcdInteger"        gcdIntegerName        gcd,
-  rule_binop          "lcmInteger"        lcmIntegerName        lcm,
-  rule_binop          "andInteger"        andIntegerName        (.&.),
-  rule_binop          "orInteger"         orIntegerName         (.|.),
-  rule_binop          "xorInteger"        xorIntegerName        xor,
-  rule_unop           "complementInteger" complementIntegerName complement,
-  rule_Int_binop      "shiftLInteger"     shiftLIntegerName     shiftL,
-  rule_Int_binop      "shiftRInteger"     shiftRIntegerName     shiftR]
+  rule_convert        "doubleFromInteger"   doubleFromIntegerName   mkDoubleLitDouble,
+  rule_binop          "gcdInteger"          gcdIntegerName          gcd,
+  rule_binop          "lcmInteger"          lcmIntegerName          lcm,
+  rule_binop          "andInteger"          andIntegerName          (.&.),
+  rule_binop          "orInteger"           orIntegerName           (.|.),
+  rule_binop          "xorInteger"          xorIntegerName          xor,
+  rule_unop           "complementInteger"   complementIntegerName   complement,
+  rule_Int_binop      "shiftLInteger"       shiftLIntegerName       shiftL,
+  rule_Int_binop      "shiftRInteger"       shiftRIntegerName       shiftR]
     where rule_convert str name convert
            = BuiltinRule { ru_name = fsLit str, ru_fn = name, ru_nargs = 1,
                            ru_try = match_Integer_convert convert }