added templateS

Author: dariooddenino

README.md

@@ -19,4 +19,6 @@ Sample usage:
 > import Data.Show (show)
 > "Pi: ${pi}, Phi: ${phi}" <^> ["pi" /\ (show 3.1415), "phi" /\ (show 1.618)]
 "Pi: 3.1415, Phi: 1.618"
+> "Pi: ${pi}, Phi: ${phi}" <-> ["pi" /\ 3.1415, "phi" /\ 1.618]
+"Pi: 3.1415, Phi: 1.618"
 ```

src/Data/TemplateString/TemplateString.purs

@@ -1,15 +1,25 @@
 module Data.TemplateString
   ((<^>)
   , template
+  , (<->)
+  , templateS  
   ) where
 
+import Prelude (map, ($), (<<<), show)
 import Data.Function.Uncurried (Fn2, runFn2)
 import Data.Tuple (Tuple)
+import Data.Show (class Show)
 
 -- | This is the safe version. The user is required to give a String representation of the object
 template :: String -> Array (Tuple String String) -> String
 template = runFn2 _template
 
 infix 7 template as <^>
 
+-- | This version can use any instance of Show
+templateS :: forall a. (Show a) => String -> Array (Tuple String a) -> String
+templateS s vs = runFn2 _template s $ (map <<< map) show vs
+
+infix 7 templateS as <->
+
 foreign import _template :: Fn2 String (Array (Tuple String String)) String