yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Stop exposing the QuasiQuoting library.

Browse source 
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.
This commit is contained in:
Evan Czaplicki 2013-08-02 17:37:30 -07:00
parent 94d6f7f471
commit 8000b8b4b9
2 changed files with 0 additions and 99 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Elm.cabal
View file

@ -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,

96
compiler/Language/Elm/Quasi.hs
View file

@ -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