Fix review comments

Author: rnjtranjan

.circleci/config.yml

@@ -390,8 +390,15 @@ jobs:
             command: |
               bash -c "$PACKCHECK $BUILD" || exit 1
               count=$(find . -name "*.hs" -exec grep -H '\ $' {} \; | tee /dev/tty | wc -l)
-              count2=$(awk '{ if (length($0) > 80) {print "Line length exceeds 80 : " length($0); print $0; print  FILENAME;  } }' *.hs | tee /dev/tty | wc -l)
-              exit $((count+count2))
+              if $count > 0
+              then exit 1
+              fi
+              git diff > tmp_len
+              count2=$(awk '{ if (length($0) > 80) {print "Line length exceeds 80 : " length($0); print $0; } }' tmp_len | tee /dev/tty | wc -l)
+              rm tmp_len
+              if $count2 > 0
+              then exit 2
+              fi              
         - *save
 
 workflows:

src/Streamly/Internal/Data/Stream/Serial.hs

@@ -503,5 +503,6 @@ TRAVERSABLE_INSTANCE(WSerialT)
 -- /Pre-release/
 --
 {-# INLINE unfoldrM #-}
-unfoldrM :: (IsStream t, Monad m) => (b -> m (Maybe (a, b))) -> b -> t m a
+unfoldrM :: (IsStream t, Monad m) => (b -> m (Maybe (a, b))) -> b -> t m a                
 unfoldrM step seed = D.fromStreamD (D.unfoldrM step seed)
+