tests/default_typeclass.x: remove spaces around as-pattern

[vaibhavsagar]

I'm getting the following error when trying to run the tests with GHC 9.0.1:

ghc -Wall -fwarn-incomplete-uni-patterns -fno-warn-missing-signatures -fno-warn-unused-imports -fno-warn-tabs -Werror -package array -package bytestring  default_typeclass.n.hs -o default_typeclass.n.bin
[1 of 1] Compiling Main             ( default_typeclass.n.hs, default_typeclass.n.o )

default_typeclass.x:136:7: error:
    Found a binding for the ‘@’ operator in a pattern position.
    Perhaps you meant an as-pattern, which must not be surrounded by whitespace
    Possibly caused by a missing 'do'?
    |
136 |     s @ AlexState { alex_errs = errs } <- get
    |       ^
make: *** [Makefile:72: default_typeclass.n.bin] Error 1
/build/alex-3.2.6/dist/build/alex/alex  -g default_typeclass.x -o default_typeclass.g.hs
ghc -Wall -fwarn-incomplete-uni-patterns -fno-warn-missing-signatures -fno-warn-unused-imports -fno-warn-tabs -Werror -package array -package bytestring  default_typeclass.g.hs -o default_typeclass.g.bin
[1 of 1] Compiling Main             ( default_typeclass.g.hs, default_typeclass.g.o )

default_typeclass.x:136:7: error:
    Found a binding for the ‘@’ operator in a pattern position.
    Perhaps you meant an as-pattern, which must not be surrounded by whitespace
    Possibly caused by a missing 'do'?
    |
136 |     s @ AlexState { alex_errs = errs } <- get
    |       ^

[vaibhavsagar]

Confirmed that the tests run successfully with this patch applied on GHC 9.0.1.

[Ericson2314]

Thanks! :)

[vaibhavsagar]

My pleasure!