diff --git a/src/App/Validation/DNS.purs b/src/App/Validation/DNS.purs
index 12dcfd9..ed6ae1a 100644
--- a/src/App/Validation/DNS.purs
+++ b/src/App/Validation/DNS.purs
@@ -207,8 +207,7 @@ data ProtocolError
 
 protocol_parser :: G.Parser ProtocolError String
 protocol_parser = do
-  pos <- G.current_position
-  G.string "tcp" <|> G.string "udp" <|> G.Parser \_ -> G.failureError pos (Just InvalidProtocol)
+  G.string "tcp" <|> G.string "udp" G.<:> \_ -> InvalidProtocol
 
 is_between :: Int -> Int -> Int -> (Int -> Int -> Int -> Error) -> V (Array Error) Int
 is_between min max n ve = if between min max n