Solve 'Sum of two lowest positive integers' kata

Author: borisskert

src/Sums.hs

@@ -0,0 +1,8 @@
+module Sums (sumTwoSmallestNumbers) where
+
+-- https://www.codewars.com/kata/558fc85d8fd1938afb000014/train/haskell
+
+import Data.List (sort)
+
+sumTwoSmallestNumbers :: [Int] -> Int
+sumTwoSmallestNumbers = sum . take 2 . sort

test/SumsSpec.hs

@@ -0,0 +1,14 @@
+module SumsSpec where
+
+import Test.Hspec
+import Sums (sumTwoSmallestNumbers)
+
+spec :: Spec
+spec = do
+  describe "Fixed Tests" $ do
+    it "sumTwoSmallestNumbers [5,8,12,18,22]" $ do
+      sumTwoSmallestNumbers [5,8,12,18,22] `shouldBe` 13
+    it "sumTwoSmallestNumbers [7,15,12,18,22]" $ do
+      sumTwoSmallestNumbers [7,15,12,18,22] `shouldBe` 19
+    it "sumTwoSmallestNumbers [25,42,12,18,22]" $ do
+      sumTwoSmallestNumbers [25,42,12,18,22] `shouldBe` 30