X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FPicklers.hs;h=72ab4553a9dac895d6b0c77698c0c4a89f6da79b;hb=a7eb780caf68b29c07815aba302abefe89ad4f43;hp=c67b5c924e62581ab8af566bfb7b590f1e1d190c;hpb=4fc769d60f0cac3b4a0cf38add8d8e883583bd61;p=dead%2Fhtsn-import.git

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