Add Miso.String.QQ. (#1101)

Author: dmjio

miso.cabal

@@ -175,6 +175,7 @@ library
   if flag (template-haskell) && !impl(ghcjs)
     exposed-modules:
       Miso.Lens.TH
+      Miso.String.QQ
     build-depends:
       template-haskell < 2.24
 

src/Miso/String/QQ.hs

@@ -0,0 +1,33 @@
+-----------------------------------------------------------------------------
+{-# LANGUAGE CPP                       #-}
+{-# LANGUAGE QuasiQuotes               #-}
+{-# LANGUAGE NamedFieldPuns            #-}
+{-# LANGUAGE RecordWildCards           #-}
+{-# LANGUAGE TemplateHaskell           #-}
+-----------------------------------------------------------------------------
+{-# OPTIONS_GHC -Wno-duplicate-exports #-}
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Miso.String.QQ
+-- Copyright   :  (C) 2016-2025 David M. Johnson (@dmjio)
+-- License     :  BSD3-style (see the file LICENSE)
+-- Maintainer  :  David M. Johnson <[email protected]>
+-- Stability   :  experimental
+-- Portability :  non-portable
+----------------------------------------------------------------------------
+module Miso.String.QQ
+  ( misoString
+  ) where
+----------------------------------------------------------------------------
+import Language.Haskell.TH.Quote
+----------------------------------------------------------------------------
+import Miso.String (toMisoString)
+----------------------------------------------------------------------------
+misoString :: QuasiQuoter
+misoString = QuasiQuoter
+  { quoteExp  = \string -> [| toMisoString string |]
+  , quotePat  = \_ -> fail "quotePat: not implemented"
+  , quoteType = \_ -> fail "quoteType: not implemented"
+  , quoteDec  = \_ -> fail "quoteDec: not implemented"
+  }
+----------------------------------------------------------------------------