From 84b29475e057ef744f32a94bc0d3954b84160760 Mon Sep 17 00:00:00 2001
From: Vaibhav Sagar <vaibhavsagar@gmail.com>
Date: Sun, 25 Apr 2021 00:48:56 +1000
Subject: [PATCH] tests/default_typeclass.x: remove spaces around as-pattern

---
 tests/default_typeclass.x | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/default_typeclass.x b/tests/default_typeclass.x
index 5491e28..76ac35a 100644
--- a/tests/default_typeclass.x
+++ b/tests/default_typeclass.x
@@ -133,7 +133,7 @@ alexSetInput (pos, c, bs, inp) =
 alexError :: (MonadState AlexState m, Read s) => String -> m (Token s)
 alexError message =
   do
-    s @ AlexState { alex_errs = errs } <- get
+    s@AlexState { alex_errs = errs } <- get
     put s { alex_errs = message : errs }
     alexMonadScan