X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=test.hs;fp=test.hs;h=6f98fc677359edce6dabda7fe631a640a19ff247;hp=117994d76e6e706503b81982f0976af42d3d0b80;hb=c3a4cdbe13176c6b6327c7bac775d0bc6be2819c;hpb=8b5e89e8d6423f7590dcb67479e4db31e05e079c diff --git a/test.hs b/test.hs index 117994d..6f98fc6 100644 --- a/test.hs +++ b/test.hs @@ -10,6 +10,7 @@ import System.IO.Error import Control.Exception import NmcDom +import NmcTransform queryOp :: String -> IO (Either String ByteString) queryOp key = catch (readFile key >>= return . Right)