X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=PowerDns.hs;h=81e0ac9efac8c88f3a9746fc8821981af58f69fa;hp=76d0b029070f213b0d40f18cdc5e370993eae75c;hb=97f340a4c490f454dac5e73563731109b951b66c;hpb=f728855c4380a2169a9dc98f52818052db22e031 diff --git a/PowerDns.hs b/PowerDns.hs index 76d0b02..81e0ac9 100644 --- a/PowerDns.hs +++ b/PowerDns.hs @@ -81,7 +81,7 @@ pdnsParse ver s = "AXFR":x:[] -> Right (PdnsRequestAXFR (getInt x)) "Q":qn:"IN":qt:id:rip:xs -> case rrType qt of RRTypeError e -> - Left $ "PDNS Request: " ++ e + Left $ "Unrecognized RR type: " ++ e rt -> Right (PdnsRequestQ { qName = qn