X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FMonad%2FBase.hs;h=c2c314faf98dc5ee11ef5181119b5a2659775ef9;hp=98da3fe3b1e9e21f99b5e8340248084e144a256d;hb=ff3bfae6010625b7ffe96bc62e8e139870684600;hpb=869984cd0306c18dcd103b9ef7dd315573dc3c6d diff --git a/compiler/vectorise/Vectorise/Monad/Base.hs b/compiler/vectorise/Vectorise/Monad/Base.hs index 98da3fe..c2c314f 100644 --- a/compiler/vectorise/Vectorise/Monad/Base.hs +++ b/compiler/vectorise/Vectorise/Monad/Base.hs @@ -77,7 +77,6 @@ maybeCantVectoriseM s d p Just x -> return x Nothing -> cantVectorise s d - -- Control -------------------------------------------------------------------- -- | Return some result saying we've failed. noV :: VM a