X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FPicklers.hs;fp=src%2FTSN%2FPicklers.hs;h=ea335c81f2894e8de38a44bddea3c5b2938f82c4;hb=c3baa2f451e5f4bc7ff33e307bc492d7cb9c3cf0;hp=be4caa64c382b2dd5a995677e2fd1a3f549e59af;hpb=f131e49033be01a131234ea12a0864d6e719a520;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/Picklers.hs b/src/TSN/Picklers.hs
index be4caa6..ea335c8 100644
--- a/src/TSN/Picklers.hs
+++ b/src/TSN/Picklers.hs
@@ -126,7 +126,7 @@ xp_earnings =
     to_earnings :: String -> Maybe Int
     to_earnings s
       | s == "TBA" = Nothing
-      | otherwise = (read . strip_commas . show) s
+      | otherwise = Just  $ (read . strip_commas) s
 
     from_earnings :: Maybe Int -> String
     from_earnings Nothing = "TBA"