From 3be45c44e57c1d0c98c471a7d7d83a41971f743e Mon Sep 17 00:00:00 2001
From: darkf <lw9k123@gmail.com>
Date: Sun, 20 Oct 2013 21:51:54 -0700
Subject: [PATCH] fix 'x::xs' pattern not working on one-element lists

---
 interp.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/interp.hs b/interp.hs
index 35c7d11..a90c98b 100644
--- a/interp.hs
+++ b/interp.hs
@@ -146,7 +146,6 @@ patternBindings UnitP UnitV = Just M.empty
 patternBindings UnitP _ = Nothing
 
 patternBindings (ConsP x (ListP [])) (ListV (y:[])) = patternBindings x y
-patternBindings (ConsP _ _) (ListV (_:[])) = Nothing
 patternBindings (ConsP xp xsp) (ListV (x:xs)) =
 	do
 		xe <- patternBindings xp x