1. Maxim Moiseev
  2. Linq2vk

Commits

Maxim Moiseev  committed cf7f41c

exception syntax used instead of class definition

  • Participants
  • Parent commits 4ed469a
  • Branches default

Comments (0)

Files changed (1)

File src/Common/JsonParser.fs

View file
  • Ignore whitespace
     let runParser (JsonArrayParser p) tokens =
         p tokens
 
-    type JsonParserException(msg:string) =
-        inherit System.Exception(msg)        
+    exception JsonParserException of string  
     
     let getParsingResult = function
         | [] -> raise <| JsonParserException("Parsing failed")