diff options
Diffstat (limited to 'src/lib/Vectorize.hs')
| -rw-r--r-- | src/lib/Vectorize.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lib/Vectorize.hs b/src/lib/Vectorize.hs index 90e289df..daa606fc 100644 --- a/src/lib/Vectorize.hs +++ b/src/lib/Vectorize.hs @@ -117,7 +117,7 @@ liftTopVectorizeM vectorByteWidth action = do Success (a, (LiftE errs)) -> return $ (a, errs) throwVectErr :: Fallible m => String -> m a -throwVectErr msg = throw MiscErr msg +throwVectErr msg = throwInternal msg askVectorByteWidth :: TopVectorizeM i o Word32 askVectorByteWidth = TopVectorizeM $ liftSubstReaderT $ lift11 (fromLiftE <$> ask) @@ -581,7 +581,7 @@ promoteTypeByStability ty = \case Varying -> getVectorType ty ProdStability stabs -> case ty of TyCon (ProdType elts) -> TyCon <$> ProdType <$> zipWithZ promoteTypeByStability elts stabs - _ -> throw ZipErr "Type and stability" + _ -> throwInternal "Zip error" -- === computing byte widths === |