Bump version to 1.0.25

ed-ilyin · May 11, 2017 · f0facc7 · f0facc7
1 parent b3bc9d5
commit f0facc7
Show file tree

Hide file tree

Showing 3 changed files with 25 additions and 5 deletions.
diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
@@ -1,4 +1,7 @@
-### 1.0.24 - May 11 2017
+### 1.0.25 - May 11 2017
+* Add Decode.map6
+
+#### 1.0.24 - May 11 2017
 * Fixes Decode.failed
 
 #### 1.0.23 - May 11 2017

diff --git a/src/EdIlyin.FSharp.Elm.Core/AssemblyInfo.fs b/src/EdIlyin.FSharp.Elm.Core/AssemblyInfo.fs
@@ -5,15 +5,15 @@ open System.Reflection
 [<assembly: AssemblyTitleAttribute("EdIlyin.FSharp.Elm.Core")>]
 [<assembly: AssemblyProductAttribute("EdIlyin.FSharp.Elm.Core")>]
 [<assembly: AssemblyDescriptionAttribute("Brings to the F# Elm language core package modules like Json.Encode, Json.Decode, Basics, Debug, Result, Tuple, etc")>]
-[<assembly: AssemblyVersionAttribute("1.0.24")>]
-[<assembly: AssemblyFileVersionAttribute("1.0.24")>]
+[<assembly: AssemblyVersionAttribute("1.0.25")>]
+[<assembly: AssemblyFileVersionAttribute("1.0.25")>]
 [<assembly: AssemblyConfigurationAttribute("Release")>]
 do ()
 
 module internal AssemblyVersionInformation =
     let [<Literal>] AssemblyTitle = "EdIlyin.FSharp.Elm.Core"
     let [<Literal>] AssemblyProduct = "EdIlyin.FSharp.Elm.Core"
     let [<Literal>] AssemblyDescription = "Brings to the F# Elm language core package modules like Json.Encode, Json.Decode, Basics, Debug, Result, Tuple, etc"
-    let [<Literal>] AssemblyVersion = "1.0.24"
-    let [<Literal>] AssemblyFileVersion = "1.0.24"
+    let [<Literal>] AssemblyVersion = "1.0.25"
+    let [<Literal>] AssemblyFileVersion = "1.0.25"
     let [<Literal>] AssemblyConfiguration = "Release"
diff --git a/src/EdIlyin.FSharp.Elm.Core/Decode.fs b/src/EdIlyin.FSharp.Elm.Core/Decode.fs
@@ -132,6 +132,23 @@ module Decode =
                 (getLabel decoder5)
 
 
+    let map6 func decoder1 decoder2 decoder3 decoder4 decoder5 decoder6 =
+        succeed func
+            <*> decoder1
+            <*> decoder2
+            <*> decoder3
+            <*> decoder4
+            <*> decoder5
+            <*> decoder6
+            <?> sprintf "{ %s, %s, %s, %s, %s, %s }"
+                (getLabel decoder1)
+                (getLabel decoder2)
+                (getLabel decoder3)
+                (getLabel decoder4)
+                (getLabel decoder5)
+                (getLabel decoder6)
+
+
     let fromResult result =
         Result.unpack failed succeed result