fix(std): fix imports for aforementioned utility functions

Author: Etherian

std/monad.glu

@@ -49,10 +49,10 @@ let join mm : [Monad m] -> m (m a) -> m a = mm >>= (\x -> x)
 
 // Kleisli composition
 #[infix(right, 9)]
-let (<=<) g f : [Monad m] -> (b -> m c) -> (a -> m b) -> m c = flat_map g << f
+let (<=<) g f x : [Monad m] -> (b -> m c) -> (a -> m b) -> (a -> m c) = g =<< f x
 
 #[infix(left, 9)]
-let (>=>) f g : [Monad m] -> (a -> m b) -> (b -> m c) -> m c = f >> flat_map g
+let (>=>) f g x : [Monad m] -> (a -> m b) -> (b -> m c) -> (a -> m c) = f x >>= g
 
 {
     Monad,

std/option.glu

@@ -12,7 +12,7 @@ let { Applicative } = import! std.applicative
 let { Alternative } = import! std.alternative
 let { Show } = import! std.show
 let { Bool } = import! std.bool
-let { Option } = import! std.types
+let { Option, Result } = import! std.types
 let string @ { ? } = import! std.string
 let { Foldable } = import! std.foldable
 let { (<>) } = import! std.semigroup

std/result.glu

@@ -6,7 +6,7 @@ let { Show } = import! std.show
 let { Functor } = import! std.functor
 let { Applicative } = import! std.applicative
 let { Monad } = import! std.monad
-let { Result } = import! std.types
+let { Result, Option } = import! std.types
 let { Foldable } = import! std.foldable
 let { Traversable } = import! std.traversable
 let { Bool } = import! std.bool