shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Fix swaped arguments to !!

--- a/lib/Data/List.hs

+++ b/lib/Data/List.hs

@@ -256,8 +256,8 @@

 deleteAllsBy eq = foldl (flip (deleteAllBy eq))

 infixl 9 !!

-(!!) :: forall a . Int -> [a] -> a

-(!!) i =

+(!!) :: forall a . [a] -> Int -> a

+(!!) axs i =

   if i < 0 then

     error "!!: <0"

   else

@@ -264,7 +264,7 @@

     let

       nth _ [] = error "!!: empty"

       nth n (x:xs) = if n == 0 then x else nth (n - 1) xs

-    in nth i

+    in nth i axs

 eqList :: forall a . (a -> a -> Bool) -> [a] -> [a] -> Bool

 eqList _ [] [] = True

-- 

⑨