Fix hlint suggestion.

[dead/htsn-import.git] / src / TSN / Picklers.hs

diff --git a/src/TSN/Picklers.hs b/src/TSN/Picklers.hs
index c67b5c924e62581ab8af566bfb7b590f1e1d190c..72ab4553a9dac895d6b0c77698c0c4a89f6da79b 100644 (file)
--- 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