@@ -373,7 +373,7 @@ infer (Fix (Compose (Ann src x))) = runReader src $ case x of
373 rhst <- infer rhs
373 rhst <- infer rhs
374 rest <- NTypeVariable <$> freshSrc
374 rest <- NTypeVariable <$> freshSrc
375 lhst ~~ (rhst :-> rest)
375 lhst ~~ (rhst :-> rest)
376− return rhst
376+ return rest
377 NBinary NConcat lhs rhs -> do
377 NBinary NConcat lhs rhs -> do
378 lhst <- infer lhs
378 lhst <- infer lhs
379 rhst <- infer rhs
379 rhst <- infer rhs