genprimopcode: Don't output tabs
authorAustin Seipp <austin@well-typed.com>
Wed, 20 Aug 2014 12:12:01 +0000 (07:12 -0500)
committerAustin Seipp <austin@well-typed.com>
Wed, 20 Aug 2014 12:12:34 +0000 (07:12 -0500)
Otherwise the build breaks, because its output is included in tab-free
files. See ef9dd9f.

Signed-off-by: Austin Seipp <austin@well-typed.com>
utils/genprimopcode/Main.hs

index 7fe375a..bb40917 100644 (file)
@@ -242,7 +242,7 @@ gen_hs_source (Info defaults entries) =
         ++ "-----------------------------------------------------------------------------\n"
         ++ "{-# LANGUAGE MagicHash, MultiParamTypeClasses, NoImplicitPrelude, UnboxedTuples #-}\n"
         ++ "module GHC.Prim (\n"
-        ++ unlines (map (("\t" ++) . hdr) entries')
+        ++ unlines (map (("        " ++) . hdr) entries')
         ++ ") where\n"
     ++ "\n"
     ++ "{-\n"
@@ -735,7 +735,7 @@ gen_primop_vector_tys_exports (Info _ entries)
 
     mkVecTypes :: Entry -> String
     mkVecTypes i =
-        "\t" ++ ty_id ++ ", " ++ tycon_id ++ ","
+        "        " ++ ty_id ++ ", " ++ tycon_id ++ ","
       where
         ty_id    = prefix i ++ "PrimTy"
         tycon_id = prefix i ++ "PrimTyCon"