)
where
import Control.Applicative hiding (empty)
+import Control.Monad
import Data.Ascii (Ascii)
import qualified Data.Ascii as A
import Data.ByteString (ByteString)
import Prelude hiding (last, mapM, null, reverse)
import Prelude.Unicode
+instance Applicative Q where
+ {-# INLINE pure #-}
+ pure = return
+ {-# INLINE (<*>) #-}
+ (<*>) = ap
+
instance Lift ByteString where
lift bs = [| Strict.pack $(litE ∘ stringL $ Strict.unpack bs) |]