PkmX · January 24, 2019 09:13 · Jan 24, 2019 · Jan 24, 2019 · Jan 24, 2019
diff --git a/Interpolate.hs b/Interpolate.hs
@@ -15,7 +15,7 @@ plugin = defaultPlugin
 parsedPlugin :: [CommandLineOption] -> ModSummary -> HsParsedModule -> Hsc HsParsedModule
 parsedPlugin _ _ HsParsedModule{..} = do
   let hpm_module' = SYB.mkT transform `SYB.everywhere` hpm_module
-  return $ HsParsedModule{ hpm_module = hpm_module', ..}
+  return $ HsParsedModule{ hpm_module = hpm_module', .. }
 
 transform :: HsExpr GhcPs -> HsExpr GhcPs
 transform (HsLit _ (HsString _ fs)) = HsSpliceE NoExt $ mkHsQuasiQuote (mkVarUnqual "i") noSrcSpan fs

diff --git a/Main.hs b/Main.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -fplugin=Interpolate #-}
+{-# OPTIONS_GHC -fplugin=Interpolate #-}
 
 module Main where
 

diff --git a/Main.hs b/Main.hs
@@ -11,4 +11,4 @@ s :: String
 s = "#{a} * #{a} = #{a * a}"
 
 main :: IO ()
-main = putStrLn s
+main = putStrLn s -- 42 * 42 = 1764
diff --git a/Interpolate.hs b/Interpolate.hs
@@ -0,0 +1,22 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+
+module Interpolate (plugin) where
+
+import GhcPlugins
+import HsSyn
+import qualified Data.Generics as SYB
+
+plugin :: Plugin
+plugin = defaultPlugin
+  { parsedResultAction = parsedPlugin
+  }
+
+parsedPlugin :: [CommandLineOption] -> ModSummary -> HsParsedModule -> Hsc HsParsedModule
+parsedPlugin _ _ HsParsedModule{..} = do
+  let hpm_module' = SYB.mkT transform `SYB.everywhere` hpm_module
+  return $ HsParsedModule{ hpm_module = hpm_module', ..}
+
+transform :: HsExpr GhcPs -> HsExpr GhcPs
+transform (HsLit _ (HsString _ fs)) = HsSpliceE NoExt $ mkHsQuasiQuote (mkVarUnqual "i") noSrcSpan fs
+transform expr = expr
diff --git a/Main.hs b/Main.hs
@@ -0,0 +1,14 @@
+{-# OPTIONS -fplugin=Interpolate #-}
+
+module Main where
+
+import Data.String.Interpolate
+
+a :: Int
+a = 42
+
+s :: String
+s = "#{a} * #{a} = #{a * a}"
+
+main :: IO ()
+main = putStrLn s
No results found