 
            
            
            
            
                12 May
                
                    2015
                
            
            
                12 May
                
                '15
                
            
            
            
        
    
                1:05 a.m.
            
        This looks like a no-brainer to me: forever :: Applicative f => f a -> f b forever a = let x = a *> x in x