small edits

bravit · Apr 19, 2021 · ac97c39 · ac97c39
1 parent 913e116
commit ac97c39
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/expr/rpn/EvalRPNExcept.hs b/expr/rpn/EvalRPNExcept.hs
@@ -43,8 +43,8 @@ pop = get >>= pop'
 
 oneElementOnStack :: EvalM ()
 oneElementOnStack = do
-  l <- gets length
-  when (l /= 1) $ throwError ExtraElements
+  len <- gets length
+  when (len /= 1) $ throwError ExtraElements
 
 readVar :: Text -> EvalM Integer
 readVar name = do

diff --git a/ip/lookup/ParseIP.hs b/ip/lookup/ParseIP.hs
@@ -111,7 +111,7 @@ parseIPIterStrict chars = go chars 0 0 1 0
     goodComp _ _ = False
 
     addComp !ip !ipcomp = shiftL ip 8 + ipcomp
-    addDigit !ipcomp c = ipcomp * 10 + digitToInt c
+    addDigit !ipcomp !c = ipcomp * 10 + digitToInt c
 
 
 parseIP'' :: String -> Maybe IP