diff --git a/Text/Alex/Quote.hs b/Text/Alex/Quote.hs
deleted file mode 100644
--- a/Text/Alex/Quote.hs
+++ /dev/null
@@ -1,26 +0,0 @@
-module Text.Alex.Quote (
-    parseAlex
-  , compileAlex
-  , alex
-  ) where
-
-import Text.Alex(runAlex, Target(..))
-import Text.Alex.AlexTemplate
-
-import Language.Haskell.TH.Quote
-import Language.Haskell.TH
-import Language.Haskell.TH.Lift
-
-import Language.Haskell.Meta
-
-type Alex = String
-
-compileAlex :: Alex -> Q [Dec]
-compileAlex = return . either error id . parseDecs
-
-alex :: QuasiQuoter
-alex = QuasiQuoter (lift . parseAlex) (error "pattern quoting is not supported") 
-
-parseAlex :: String -> Alex
-parseAlex s = fst (runAlex [] Nothing s) ++ "\n" ++ alexTemplate HaskellTarget
-  -- fst (runAlex [] Nothing s)
diff --git a/alex-meta.cabal b/alex-meta.cabal
--- a/alex-meta.cabal
+++ b/alex-meta.cabal
@@ -1,5 +1,5 @@
 Name:                alex-meta
-Version:             0.1.1
+Version:             0.2
 Synopsis:            Quasi-quoter for Alex lexers
 -- Description:         
 License:             BSD3
@@ -23,10 +23,9 @@
   -- Packages needed in order to build this package.
   Build-depends:
       template-haskell >=2.4&&<2.5
-    , th-lift >=0.5&&<0.6
-    , haskell-src-meta >=0.1.1&&<0.2
+    , haskell-src-meta >=0.3&&<1.0
     , base >= 4.2 && < 5
-    , array, containers, directory
+    , array, containers
 
   other-modules:
         Text.Alex
diff --git a/src/Text/Alex/Quote.hs b/src/Text/Alex/Quote.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/Alex/Quote.hs
@@ -0,0 +1,27 @@
+{-#OPTIONS_GHC -fno-warn-missing-fields#-}
+
+module Text.Alex.Quote (
+    parseAlex
+  , compileAlex
+  , alex
+  ) where
+
+import Text.Alex(runAlex, Target(..))
+import Text.Alex.AlexTemplate
+
+import Language.Haskell.TH.Quote
+import Language.Haskell.TH
+
+import Language.Haskell.Meta
+
+type Alex = String
+
+compileAlex :: Alex -> Q [Dec]
+compileAlex = return . either error id . parseDecs
+
+alex :: QuasiQuoter
+alex = QuasiQuoter {quoteExp = litE . StringL . parseAlex}
+
+parseAlex :: String -> Alex
+parseAlex s = fst (runAlex [] Nothing s) ++ "\n" ++ alexTemplate HaskellTarget
+