diff --git a/BNFC-meta.cabal b/BNFC-meta.cabal
--- a/BNFC-meta.cabal
+++ b/BNFC-meta.cabal
@@ -1,5 +1,5 @@
 Name:		BNFC-meta
-version:	0.1.0.2
+version:	0.1.0.3
 cabal-Version:  >= 1.6
 build-type:     Simple
 license:        GPL-2
@@ -26,7 +26,7 @@
   Build-Depends: 
     base>=4.2&&<5
     , array==0.3.0.*
-    , template-haskell >=2.4&&<2.5
+    , template-haskell >=2.4&&<2.6
     , haskell-src-meta >= 0.1.1 && < 0.4
     , th-lift >=0.5&&<0.6
     , happy-meta < 0.3
diff --git a/Language/LBNF.hs b/Language/LBNF.hs
--- a/Language/LBNF.hs
+++ b/Language/LBNF.hs
@@ -1,4 +1,5 @@
 {-# LANGUAGE TemplateHaskell #-}
+{-# OPTIONS_GHC -fno-warn-missing-fields #-}
 
 module Language.LBNF (
     compile
@@ -37,21 +38,21 @@
 
 
 cf :: QuasiQuoter 
-cf = QuasiQuoter cfe cfp where
+cf = QuasiQuoter {quoteExp = cfe, quotePat = cfp} where
   cfe s = case getCF s of
     (g,[]) -> lift g
     (_,msgs) -> error $ unlines msgs
   cfp = error "Pattern quoting of grammars is not supported"
 
 qm :: (Entrypoint a, Lift b) => (a -> Q b) -> QuasiQuoter
-qm f = QuasiQuoter qExpM (error "Pattern quotes are not supported yet...")
+qm f = QuasiQuoter {quoteExp = qExpM, quotePat = error "Pattern quotes are not supported yet..."}
   where
     qExpM s = case parse s of
       Bad e -> error e
       Ok a  -> f a >>= lift
 
 q :: (Entrypoint a, Lift b) => (a -> b) -> QuasiQuoter
-q f = QuasiQuoter qExp (error "Pattern quotes are not supported yet...")
+q f = QuasiQuoter {quoteExp = qExp, quotePat = error "Pattern quotes are not supported yet..."}
   where
     qExp s = case parse s of
       Bad e -> error e
diff --git a/Language/LBNF/CF.hs b/Language/LBNF/CF.hs
--- a/Language/LBNF/CF.hs
+++ b/Language/LBNF/CF.hs
@@ -131,7 +131,7 @@
 -- Info is information extracted from the CF, for easy access.
 -- Literals - Char, String, Ident, Integer, Double
 --            Strings are quoted strings, and Ident are unquoted.
--- Symbols  - symbols in the grammar, e.g. ´*´, '->'.
+-- Symbols  - symbols in the grammar, e.g. *, '->'.
 -- KeyWord  - reserved words, e.g. 'if' 'while'
 type Info = ([Literal],[Symbol],[KeyWord],[Cat])