From 8000b8b4b9e660dd926df35f5fdafc449191ed16 Mon Sep 17 00:00:00 2001
From: Evan Czaplicki <info@elm-lang.org>
Date: Fri, 2 Aug 2013 17:37:30 -0700
Subject: [PATCH] Stop exposing the QuasiQuoting library.

I have not looked at this code in many versions, so I don't think it's
good for me to keep "maintaining" it even though I don't think people
should really use this.
---
 Elm.cabal                      |  3 --
 compiler/Language/Elm/Quasi.hs | 96 ----------------------------------
 2 files changed, 99 deletions(-)
 delete mode 100644 compiler/Language/Elm/Quasi.hs

diff --git a/Elm.cabal b/Elm.cabal
index 11ebb4e..79d2227 100644
--- a/Elm.cabal
+++ b/Elm.cabal
@@ -85,7 +85,6 @@ Library
                        bytestring,
                        cmdargs,
                        containers >= 0.3,
-                       deepseq,
                        directory,
                        filepath,
                        hjsmin,
@@ -96,7 +95,6 @@ Library
                        pretty,
                        shakespeare,
                        text,
-                       template-haskell,
                        transformers >= 0.2,
                        union-find,
                        uniplate
@@ -156,7 +154,6 @@ Executable elm
                        bytestring,
                        cmdargs,
                        containers >= 0.3,
-                       deepseq,
                        directory,
                        filepath,
                        hjsmin,
diff --git a/compiler/Language/Elm/Quasi.hs b/compiler/Language/Elm/Quasi.hs
deleted file mode 100644
index 899ec8a..0000000
--- a/compiler/Language/Elm/Quasi.hs
+++ /dev/null
@@ -1,96 +0,0 @@
-{-# LANGUAGE TemplateHaskell #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE CPP #-}
-{-# OPTIONS_GHC -fno-warn-missing-fields #-}
-
--- | This module contains Shakespearean (see "Text.Shakespeare") templates
---   for Elm. It introduces type-safe compile-time variable and URL
---   interpolation. A typeclass @'ToElm'@ is provided for interpolated
---   variables.
---
---   Further reading on Shakespearean templates:
---   <http://www.yesodweb.com/book/templates>
---
---   Further reading on Elm: <http://elm-lang.org> 
-module Language.Elm.Quasi
-    ( -- * Functions
-      -- ** Template-Reading Functions
-      -- |These QuasiQuoters return functions of the type @(t -> 'Elm')@
-      --  where @t@ is the URL rendering function if type-safe URLs are used.
-      --
-      --  A usage example for both type-safe (Yesod) and standard path segment
-      --  (Happstack) URLs is provided in the Examples folder in the Git
-      --  repository.
-      elm
-    , elmFile
-    , elmFileReload
-
-      -- * Datatypes
-    , Elm (..)
-
-      -- * Typeclass for interpolated variables
-    , ToElm (..)
-
-      -- ** Rendering Functions
-    , renderElm
-
-    ) where
-
-import Language.Haskell.TH.Quote (QuasiQuoter (..))
-import Language.Haskell.TH.Syntax
-import Data.Text.Lazy.Builder (Builder, fromText, toLazyText, fromLazyText)
-import Data.Monoid
-import qualified Data.Text as TS
-import qualified Data.Text.Lazy as TL
-import Text.Shakespeare
-
--- | Render Elm to lazy Text.
-renderElm :: Elm -> TL.Text
-renderElm (Elm b) = toLazyText b
-
--- | Newtype wrapper of 'Builder'.
-newtype Elm = Elm { unElm :: Builder }
-    deriving Monoid
-
--- | A typeclass for types that can be interpolated in Elm templates.
-class ToElm a where
-    toElm :: a -> Builder
-instance ToElm [Char]  where toElm = fromLazyText . TL.pack
-instance ToElm TS.Text where toElm = fromText
-instance ToElm TL.Text where toElm = fromLazyText
-
-elmSettings :: Q ShakespeareSettings
-elmSettings = do
-  toJExp <- [|toElm|]
-  wrapExp <- [|Elm|]
-  unWrapExp <- [|unElm|]
-  return $ defaultShakespeareSettings { toBuilder = toJExp
-  , wrap = wrapExp
-  , unwrap = unWrapExp
-  }
-
--- |QuasiQuoter for embedding Elm code inside of Haskell code.
---
---  Usage:
--- @[elm|main = plaintext \"Some elm code\"|]@
-elm :: QuasiQuoter
-elm = QuasiQuoter { quoteExp = \s -> do
-    rs <- elmSettings
-    quoteExp (shakespeare rs) s
-    }
-
--- |A Template Haskell function for embedding Elm code from external
---  .elm files.
---
---  Usage:
--- @$(elmFile \"elm_source/index.elm\")@
-elmFile :: FilePath -> Q Exp
-elmFile fp = do
-    rs <- elmSettings
-    shakespeareFile rs fp
-
-elmFileReload :: FilePath -> Q Exp
-elmFileReload fp = do
-    rs <- elmSettings
-    shakespeareFileReload rs fp