prologQuasiQuoter parser name =
   QuasiQuoter { quoteExp  = parsePrologExp parser name
               , quotePat  = parsePrologPat parser name
               , quoteType = fail ("Prolog "++ name ++"s can't be Haskell types!")
               , quoteDec  = fail ("Prolog "++ name ++"s can't be Haskell declarations!")
               }
prologQuasiQuoter parser name =
   QuasiQuoter { quoteExp  = parsePrologExp parser name
               , quotePat  = parsePrologPat parser name
               , quoteType = fail ("Prolog "++ name ++"s can't be Haskell types!")
               , quoteDec  = fail ("Prolog "++ name ++"s can't be Haskell declarations!")
               }
prologQuasiQuoter parser name =
   QuasiQuoter { quoteExp  = parsePrologExp parser name
               , quotePat  = parsePrologPat parser name
               , quoteType = fail ("Prolog "++ name ++"s can't be Haskell types!")
               , quoteDec  = fail ("Prolog "++ name ++"s can't be Haskell declarations!")
               }