s/normalise/normalize/

diff --git a/cλash/CLasH/Utils/Core/CoreTools.hs b/cλash/CLasH/Utils/Core/CoreTools.hs
index ce42678a7683634edd4368351709384b8d777310..ab3654f36b68a81f16053659b5f8f3ca5d2899bc 100644 (file)
--- a/cλash/CLasH/Utils/Core/CoreTools.hs
+++ b/cλash/CLasH/Utils/Core/CoreTools.hs
@@ -53,7 +53,7 @@ type Binding = (CoreSyn.CoreBndr, CoreSyn.CoreExpr)
 tfp_to_int :: Type.Type -> TypeSession Int
 tfp_to_int ty = do
   hscenv <- MonadState.get tsHscEnv
-  let norm_ty = normalise_tfp_int hscenv ty
+  let norm_ty = normalize_tfp_int hscenv ty
   case Type.splitTyConApp_maybe norm_ty of
     Just (tycon, args) -> do
       let name = Name.getOccString (TyCon.tyConName tycon)
@@ -71,7 +71,7 @@ tfp_to_int' :: Type.Type -> TypeSession Int
 tfp_to_int' ty = do
   lens <- MonadState.get tsTfpInts
   hscenv <- MonadState.get tsHscEnv
-  let norm_ty = normalise_tfp_int hscenv ty
+  let norm_ty = normalize_tfp_int hscenv ty
   let existing_len = Map.lookup (OrdType norm_ty) lens
   case existing_len of
     Just len -> return len
@@ -101,10 +101,10 @@ eval_tfp_int env ty =
     libdir = DynFlags.topDir dynflags
     dynflags = HscTypes.hsc_dflags env
 
-normalise_tfp_int :: HscTypes.HscEnv -> Type.Type -> Type.Type
-normalise_tfp_int env ty =
+normalize_tfp_int :: HscTypes.HscEnv -> Type.Type -> Type.Type
+normalize_tfp_int env ty =
    System.IO.Unsafe.unsafePerformIO $
-     normaliseType env ty
+     normalizeType env ty
 
 -- | Get the width of a SizedWord type
 -- sized_word_len :: HscTypes.HscEnv -> Type.Type -> Int

diff --git a/cλash/CLasH/Utils/HsTools.hs b/cλash/CLasH/Utils/HsTools.hs
index c08bad7b4fe1a0b133957cee6addf91c359d1eb9..22b13823a2465637d7cbc632dd86b8ab5c94c472 100644 (file)
--- a/cλash/CLasH/Utils/HsTools.hs
+++ b/cλash/CLasH/Utils/HsTools.hs
@@ -109,11 +109,11 @@ mkId rdr_name = do
         -- tcLookupId to find out.
         TcEnv.tcLookupId name 
 
-normaliseType ::
+normalizeType ::
   HscTypes.HscEnv
   -> Type.Type
   -> IO Type.Type
-normaliseType env ty = do
+normalizeType env ty = do
    (err, nty) <- MonadUtils.liftIO $
      -- Initialize the typechecker monad
      TcRnMonad.initTcPrintErrors env PrelNames.iNTERACTIVE $ do