diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-08-20 07:12:01 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-08-20 07:12:34 -0500 |
| commit | a2d25464bc79102bd81b7889cec9bf534c1c8864 (patch) | |
| tree | fba5037a22518f73b96a6765e09ef3b390bbb907 /utils/genprimopcode/Main.hs | |
| parent | 37743a136b588b5217b71ec5bb430b854359631a (diff) | |
| download | haskell-a2d25464bc79102bd81b7889cec9bf534c1c8864.tar.gz | |
genprimopcode: Don't output tabs
Otherwise the build breaks, because its output is included in tab-free
files. See ef9dd9f.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'utils/genprimopcode/Main.hs')
| -rw-r--r-- | utils/genprimopcode/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index 7fe375a7d2..bb40917fd5 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -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" |