quoteExpParser :: String -> TH.ExpQ
quoteExpParser s = do
    TH.runIO B.initParser
    r <- TH.runIO (B.parseQuery s)
    case B.success r of
     1 -> (TH.litE . TH.stringL) s
     _ -> error "no parse"
quoteExpParser :: String -> TH.ExpQ
quoteExpParser s = do
    TH.runIO B.initParser
    r <- TH.runIO (B.parseQuery s)
    case B.success r of
     1 -> (TH.litE . TH.stringL) s
     _ -> error "no parse"
quoteExpParser s = do
    TH.runIO B.initParser
    r <- TH.runIO (B.parseQuery s)
    case B.success r of
     1 -> (TH.litE . TH.stringL) s
     _ -> error "no parse"