diff --git a/_posts/2013-07-29-quick-haskell-syntax.md b/_posts/2013-07-29-quick-haskell-syntax.md
index 60ec0ef..f554f0b 100644
--- a/_posts/2013-07-29-quick-haskell-syntax.md
+++ b/_posts/2013-07-29-quick-haskell-syntax.md
@@ -105,7 +105,7 @@ The function takes in two variables, `x` and `y`, and just returns `x` untouched
 concatenate3 :: String -> String -> String -> String
 concatenate3 x y z = x ++ y ++ z
 
-allEqual :: (Eq a) => a -> a -> a
+allEqual :: (Eq a) => a -> a -> a -> Bool
 allEqual x y z = x == y && y == z
 {% endhighlight %}