From a7eb780caf68b29c07815aba302abefe89ad4f43 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 15 Jan 2014 20:34:34 -0500 Subject: [PATCH] Fix hlint suggestion. --- src/TSN/Picklers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/TSN/Picklers.hs b/src/TSN/Picklers.hs index c67b5c9..72ab455 100644 --- a/src/TSN/Picklers.hs +++ b/src/TSN/Picklers.hs @@ -52,7 +52,7 @@ xp_gamedate = parseTime defaultTimeLocale format s' where s' = case (reverse s) of - (c2:c1:cs) -> let suffix = c1:(c2:[]) + (c2:c1:cs) -> let suffix = [c1,c2] in case suffix of "st" -> reverse cs -- 2.43.2