diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-12 15:41:16 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-12 15:41:16 +0000 |
| commit | 71fcb04ece12be6c4e94b50f4178610eb1c8df91 (patch) | |
| tree | 1f35c0be28c70d1522e51525088822ddb99a6535 /compiler/vectorise | |
| parent | 7b4fa73c1d9449d10723b562b2ca3e71e86c6ae3 (diff) | |
| download | haskell-71fcb04ece12be6c4e94b50f4178610eb1c8df91.tar.gz | |
(F)SLIT -> (f)sLit in VectMonad
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/VectMonad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index b47da65712..4ae6c17ecb 100644 --- a/compiler/vectorise/VectMonad.hs +++ b/compiler/vectorise/VectMonad.hs @@ -174,7 +174,7 @@ emptyLocalEnv = LocalEnv { local_vars = emptyVarEnv , local_tyvars = [] , local_tyvar_pa = emptyVarEnv - , local_bind_name = FSLIT("fn") + , local_bind_name = fsLit "fn" } -- FIXME @@ -331,7 +331,7 @@ newLocalVar fs ty return $ mkSysLocal fs u ty newDummyVar :: Type -> VM Var -newDummyVar = newLocalVar FSLIT("ds") +newDummyVar = newLocalVar (fsLit "ds") newTyVar :: FastString -> Kind -> VM Var newTyVar fs k |