module.fs

module MarketCodes =
           
    let US = dict [ 
                ("A", "American Stock Exchange");
                ("B", "Boston Stock Exchange");
                ("C", "National Stock Exchange");
                ("D", "FINRA ADF");
                ("I", "International Securities Exchange");
                ("J", "Direct Edge A");
                ("K", "Direct Edge X");
                ("M", "Chicago Stock Exchange");
                ("N", "New York Stock Exchange");
                ("P", "Nyse Arca Exchange");
                ("Q", "NASDAQ OMX");
                ("T", "NASDAQ OMX");
                ("U", "OTC Bulletin Board");
                ("u", "Over-the-Counter trade in Non-NASDAQ issue");
                ("W", "Chicago Board Options Exchange");
                ("X", "Philadelphia Stock Exchange");
                ("Y", "BATS Y-Exchange; Inc");
                ("Z", "BATS Exchange; Inc")
    ]

    let Canada = dict [ 
                    ("T", "Toronto"); 
                    ("V", "Venture") 
    ]

    let AllowedExchanges = [ "P"; "Q" ]