applied suggestions

Author: klntsky

src/Data/Array/ST.js

@@ -32,7 +32,7 @@ exports.popImpl = function (just) {
   return function (nothing) {
     return function (xs) {
       return function () {
-        return xs.length ? just(xs.pop()) : nothing;
+        return xs.length > 0 ? just(xs.pop()) : nothing;
       };
     };
   };
@@ -50,7 +50,7 @@ exports.shiftImpl = function (just) {
   return function (nothing) {
     return function (xs) {
       return function () {
-        return xs.length ? just(xs.shift()) : nothing;
+        return xs.length > 0 ? just(xs.shift()) : nothing;
       };
     };
   };

src/Data/Array/ST.purs

@@ -91,7 +91,12 @@ sort = sortBy compare
 shift :: forall h a. STArray h a -> ST h (Maybe a)
 shift = shiftImpl Just Nothing
 
-foreign import shiftImpl :: forall h a. (a -> Maybe a) -> Maybe a -> STArray h a -> ST h (Maybe a)
+foreign import shiftImpl
+  :: forall h a
+   . (forall b. b -> Maybe b)
+  -> (forall b. Maybe b)
+  -> STArray h a
+  -> ST h (Maybe a)
 
 -- | Sort a mutable array in place using a comparison function.
 sortBy
@@ -150,7 +155,12 @@ foreign import poke :: forall h a. Int -> a -> STArray h a -> ST h Boolean
 pop :: forall h a. STArray h a -> ST h (Maybe a)
 pop = popImpl Just Nothing
 
-foreign import popImpl :: forall h a. (a -> Maybe a) -> Maybe a -> STArray h a -> ST h (Maybe a)
+foreign import popImpl
+  :: forall h a
+   . (forall b. b -> Maybe b)
+  -> (forall b. Maybe b)
+  -> STArray h a
+  -> ST h (Maybe a)
 
 -- | Append an element to the end of a mutable array. Returns the new length of
 -- | the array.