diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2020-02-03 13:19:11 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2020-02-03 13:19:11 +0000 |
| commit | 7a93f14c982133d933029c0ae2c584e382e8ad37 (patch) | |
| tree | bfea44f0709a43c5e394b8e61884527534a6fe3f /utils/genprimopcode/Main.hs | |
| parent | 87368d1dc38c710bca96d1a129785b7d6e565ac2 (diff) | |
| download | haskell-wip/tything-wired-in.tar.gz | |
completewip/tything-wired-in
Diffstat (limited to 'utils/genprimopcode/Main.hs')
| -rw-r--r-- | utils/genprimopcode/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index f7b6ba73dd..823e8d2255 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -692,7 +692,7 @@ gen_primop_vector_tys (Info _ entries) mkVecTypes :: Entry -> [String] mkVecTypes i = [ name_id ++ " :: Name" - , name_id ++ " = mkPrimTc (fsLit \"" ++ pprTy (ty i) ++ "\") " ++ key_id ++ " " ++ tycon_id + , name_id ++ " = mkPrimTc (fsLit \"" ++ pprTy (ty i) ++ "\") " ++ key_id , ty_id ++ " :: Type" , ty_id ++ " = mkTyConTy " ++ tycon_id , tycon_id ++ " :: TyCon" |