Added some number conversion instances.

JustusAdam · Nov 7, 2015 · 75d73f0 · 75d73f0
1 parent 624ee91
commit 75d73f0
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/lib/Text/Mustache/Types.hs b/src/lib/Text/Mustache/Types.hs
@@ -102,6 +102,18 @@ class ToMustache ω where
   listToMustache ∷ [ω] → Value
   listToMustache = Array ∘ V.fromList ∘ fmap toMustache
 
+instance ToMustache Float where
+  toMustache = Number ∘ fromFloatDigits
+
+instance ToMustache Double where
+  toMustache = Number ∘ fromFloatDigits
+
+instance ToMustache Integer where
+  toMustache = Number ∘ flip scientific 0
+
+instance ToMustache Int where
+  toMustache = toMustache . toInteger
+
 instance ToMustache Char where
   toMustache = toMustache ∘ (:[])
   listToMustache = String ∘ pack