X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FXML%2FOdds.hs;h=7143c459a4d9fbba182d9ef877c259d6ace59e45;hb=579f3e4c6b01f0e89fa6dc8c41a22330d4cb7b8f;hp=9b35736b14aa7152ed48d314bc3ef5b59ea91844;hpb=45f12af91c337280dbdface5b84a8fa6637f1d2b;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/XML/Odds.hs b/src/TSN/XML/Odds.hs
index 9b35736..7143c45 100644
--- a/src/TSN/XML/Odds.hs
+++ b/src/TSN/XML/Odds.hs
@@ -250,9 +250,9 @@ pickle_message =
               (xpElem "Title" xpText)
               (xpElem "Line_Time" xpText)
               pickle_notes
-              (xpList $ pickle_game)
+              (xpList pickle_game)
               pickle_notes
-              (xpList $ pickle_game)
+              (xpList pickle_game)
               (xpElem "time_stamp" xpText)
   where
     from_tuple = uncurryN MessageXml
@@ -271,7 +271,7 @@ pickle_message =
     pickle_notes :: PU String
     pickle_notes =
       xpWrap (to_string, from_string) $
-          (xpList $ xpElem "Notes" xpText)
+        xpList (xpElem "Notes" xpText)
       where
         from_string :: String -> [String]
         from_string = split "\n"