Fix Foldable1 Lazy instance (#30)

Author: srghma

src/Data/Lazy.purs

@@ -102,6 +102,8 @@ instance foldableWithIndexLazy :: FoldableWithIndex Unit Lazy where
 instance foldable1Lazy :: Foldable1 Lazy where
   foldMap1 f l = f (force l)
   fold1 = fold1Default
+  foldr1 _ l = force l
+  foldl1 _ l = force l
 
 instance traversableLazy :: Traversable Lazy where
   traverse f l = defer <<< const <$> f (force l)