X-Git-Url: http://www.average.org/gitweb/?a=blobdiff_plain;ds=inline;f=PowerDns.hs;h=81e0ac9efac8c88f3a9746fc8821981af58f69fa;hb=97f340a4c490f454dac5e73563731109b951b66c;hp=76d0b029070f213b0d40f18cdc5e370993eae75c;hpb=f728855c4380a2169a9dc98f52818052db22e031;p=pdns-pipe-nmc.git 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