authoring 0.3.1 → 0.3.2

raw patch · 2 files changed

+6/−3 lines, 2 files

Files

• authoring.cabal +1/−1
• src/Text/Authoring/TH.hs +5/−2

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                authoring-version:             0.3.1+version:             0.3.2 synopsis:            A library for writing papers description:         This package is a combinator library for writing papers. homepage:            http://github.com/nushio3/authoring

@@ -77,8 +77,11 @@  cvtE :: QQConfig -> Component -> ExpQ cvtE cfg (StrPart x)    = escaper cfg $ appE (varE 'T.pack) $ stringE x-cvtE cfg (EmbedShow x)  = escaper cfg $ appE (varE 'T.pack) $ appE (varE 'showJoin) (varE $ mkName $ trim x)-cvtE _   (EmbedMonad x) = (varE $ mkName $ trim x)                           +cvtE cfg (EmbedShow x)  = escaper cfg $ appE (varE 'T.pack) $ appE (varE 'showJoin) (chainAppE x)+cvtE _   (EmbedMonad x) = chainAppE x++chainAppE :: String -> ExpQ+chainAppE str = foldr1 appE $ map (varE . mkName) $ words str  trim :: String -> String trim = T.unpack . T.strip . T.pack