From http://hackage.haskell.org/package/hylolib-1.4.0/docs/src/HyLo-Util.html, modified slightly to not return the final item in the list

sequenceUntil.hs

sequenceUntil :: Monad m => (a -> Bool) -> [m a] -> m [a]                       
sequenceUntil _ [] = return []                                                  
sequenceUntil p (m:ms) = do a <- m                                              
                            if p a                                              
                              then return $ init [a]                            
                              else do as <- sequenceUntil p ms                  
                                      return (a:as)