From a7a06a7684dc4b0c3a5de0b7f50a9b946f957007 Mon Sep 17 00:00:00 2001
From: adamrk <ark.email@gmail.com>
Date: Mon, 29 May 2017 00:20:40 -0400
Subject: [PATCH] fix bug caused by incomplete pattern in precedence function

typing in a string like "4 + sqrt(5)" would cause a crash
because in the middle of typing "sqrt" the evaluator would
treat 's' as an operator and try to compare it's precedence
to the precedence of '+'. The precedence function did not
match all patterns and this adds an otherwise case.
---
 src/BC/Types.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/BC/Types.hs b/src/BC/Types.hs
index 9f10a18..1e5197f 100644
--- a/src/BC/Types.hs
+++ b/src/BC/Types.hs
@@ -103,6 +103,7 @@ precedence "<=" = 2
 precedence ">=" = 2
 precedence "==" = 2
 precedence "!=" = 2
+precedence _ = 6
 
 
 contains :: Eq a => [a] -> a -> Bool