exercism · rbasso · May 10, 2017 · May 10, 2017 · May 10, 2017 · May 10, 2017
diff --git a/exercises/accumulate/package.yaml b/exercises/accumulate/package.yaml
@@ -1,5 +1,5 @@
 name: accumulate
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

diff --git a/exercises/accumulate/test/Tests.hs b/exercises/accumulate/test/Tests.hs
@@ -1,5 +1,5 @@
 import Data.Char         (toUpper)
-import Test.Hspec        (Spec, describe, it, shouldBe)
+import Test.Hspec        (Spec, it, shouldBe)
 import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
 
 import Accumulate (accumulate)
@@ -8,7 +8,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "accumulate" $ do
+specs = do
 
     let square x = x * x :: Int
 

diff --git a/exercises/acronym/package.yaml b/exercises/acronym/package.yaml
@@ -1,5 +1,5 @@
 name: acronym
-version: 1.0.0.1
+version: 1.0.0.2
 
 dependencies:
   - base

diff --git a/exercises/acronym/test/Tests.hs b/exercises/acronym/test/Tests.hs
@@ -10,8 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "acronym" $
-          describe "abbreviate" $ for_ cases test
+specs = describe "abbreviate" $ for_ cases test
   where
     test Case {..} = it description $ abbreviate input `shouldBe` expected
 

diff --git a/exercises/all-your-base/package.yaml b/exercises/all-your-base/package.yaml
@@ -1,5 +1,5 @@
 name: all-your-base
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

diff --git a/exercises/all-your-base/test/Tests.hs b/exercises/all-your-base/test/Tests.hs
@@ -10,8 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "all-your-base" $
-          describe "rebase" $ for_ cases test
+specs = describe "rebase" $ for_ cases test
   where
 
     test Case{..} = it description assertion

diff --git a/exercises/allergies/package.yaml b/exercises/allergies/package.yaml
@@ -1,5 +1,5 @@
 name: allergies
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

diff --git a/exercises/allergies/test/Tests.hs b/exercises/allergies/test/Tests.hs
@@ -21,7 +21,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "allergies" $ do
+specs = do
 
           describe "isAllergicTo" $ do
 

diff --git a/exercises/alphametics/package.yaml b/exercises/alphametics/package.yaml
@@ -1,5 +1,5 @@
 name: alphametics
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

diff --git a/exercises/alphametics/test/Tests.hs b/exercises/alphametics/test/Tests.hs
@@ -12,8 +12,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "alphametics" $
-          describe "solve" $ for_ cases test
+specs = describe "solve" $ for_ cases test
   where
 
     test Case{..} = it description assertion

diff --git a/exercises/anagram/package.yaml b/exercises/anagram/package.yaml
@@ -1,5 +1,5 @@
 name: anagram
-version: 1.0.1.3
+version: 1.0.1.4
 
 dependencies:
   - base

diff --git a/exercises/anagram/test/Tests.hs b/exercises/anagram/test/Tests.hs
@@ -11,8 +11,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "anagram" $
-          describe "anagramsFor" $ for_ cases test
+specs = describe "anagramsFor" $ for_ cases test
   where
 
     test Case{..} = it description $ expression `shouldMatchList` expected

diff --git a/exercises/atbash-cipher/package.yaml b/exercises/atbash-cipher/package.yaml
@@ -1,5 +1,5 @@
 name: atbash-cipher
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

diff --git a/exercises/atbash-cipher/test/Tests.hs b/exercises/atbash-cipher/test/Tests.hs
@@ -10,7 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "atbash-cipher" $ do
+specs = do
           describe "encode" $ for_ encodeCases $ test encode
           describe "decode" $ for_ decodeCases $ test decode
   where

diff --git a/exercises/bank-account/package.yaml b/exercises/bank-account/package.yaml
@@ -1,5 +1,5 @@
 name: bank-account
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

diff --git a/exercises/bank-account/test/Tests.hs b/exercises/bank-account/test/Tests.hs
@@ -1,7 +1,7 @@
 import Control.Concurrent (forkIO, newEmptyMVar, putMVar, takeMVar)
 import Control.Monad      (replicateM)
 import Data.Foldable      (for_)
-import Test.Hspec         (Spec, describe, it, shouldReturn)
+import Test.Hspec         (Spec, it, shouldReturn)
 import Test.Hspec.Runner  (configFastFail, defaultConfig, hspecWith)
 
 import BankAccount
@@ -15,7 +15,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "bank-account" $ do
+specs = do
 
     it "initial balance is 0" $ do
         account  <-  openAccount

diff --git a/exercises/beer-song/package.yaml b/exercises/beer-song/package.yaml
@@ -1,5 +1,5 @@
 name: beer-song
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

diff --git a/exercises/beer-song/test/Tests.hs b/exercises/beer-song/test/Tests.hs
@@ -9,20 +9,18 @@ main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
 
-specs = describe "beer-song" $
+specs = describe "song" $ do
 
-          describe "song" $ do
+          -- First we test the input, line by line, to give more
+          -- useful error messages.
 
-            -- First we test the input, line by line, to give more
-            -- useful error messages.
+          it "matches lines" $ sequence_ lineAssertions
 
-            it "matches lines" $ sequence_ lineAssertions
+          -- Finally, because testing lines we are unable
+          -- to detect a missing newline at the end of the
+          -- lyrics, we test the full song.
 
-            -- Finally, because testing lines we are unable
-            -- to detect a missing newline at the end of the
-            -- lyrics, we test the full song.
-
-            it "matches full song" $ song `shouldBe` lyrics
+          it "matches full song" $ song `shouldBe` lyrics
   where
 
     lineAssertions = zipWith checkLine [1 :: Int ..] $ zipMaybe (lines song) (lines lyrics)

diff --git a/exercises/binary-search-tree/package.yaml b/exercises/binary-search-tree/package.yaml
@@ -1,5 +1,5 @@
 name: binary-search-tree
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

diff --git a/exercises/binary-search-tree/test/Tests.hs b/exercises/binary-search-tree/test/Tests.hs
@@ -1,4 +1,4 @@
-import Test.Hspec        (Spec, describe, it, shouldBe)
+import Test.Hspec        (Spec, it, shouldBe)
 import Test.Hspec.Runner (configFastFail, defaultConfig, hspecWith)
 
 import BST
@@ -16,7 +16,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "binary-seach-tree" $ do
+specs = do
 
     let int4   = 4  ::  Int
     let noInts = [] :: [Int]

diff --git a/exercises/binary/package.yaml b/exercises/binary/package.yaml
@@ -1,5 +1,5 @@
 name: binary
-version: 0.9.0.1 # 2016-07-26
+version: 0.9.0.2 # 2016-07-26
 
 dependencies:
   - base

diff --git a/exercises/binary/test/Tests.hs b/exercises/binary/test/Tests.hs
@@ -11,8 +11,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "binary" $
-          describe "toDecimal" $ for_ cases test
+specs = describe "toDecimal" $ for_ cases test
   where
 
     test Case{..} = it description assertion

diff --git a/exercises/bob/package.yaml b/exercises/bob/package.yaml
@@ -1,5 +1,5 @@
 name: bob
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

diff --git a/exercises/bob/test/Tests.hs b/exercises/bob/test/Tests.hs
@@ -10,8 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "bob" $
-          describe "responseFor" $ for_ cases test
+specs = describe "responseFor" $ for_ cases test
   where
     test Case{..} = it description $ responseFor input `shouldBe` expected
 

diff --git a/exercises/bowling/package.yaml b/exercises/bowling/package.yaml
@@ -1,5 +1,5 @@
 name: bowling
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

diff --git a/exercises/bowling/test/Tests.hs b/exercises/bowling/test/Tests.hs
@@ -10,8 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "bowling" $
-          describe "roll, score" $ for_ cases test
+specs = describe "roll, score" $ for_ cases test
   where
 
     test Case{..} = it description assertion

diff --git a/exercises/bracket-push/package.yaml b/exercises/bracket-push/package.yaml
@@ -1,5 +1,5 @@
 name: bracket-push
-version: 1.1.0.1
+version: 1.1.0.2
 
 dependencies:
   - base

diff --git a/exercises/bracket-push/test/Tests.hs b/exercises/bracket-push/test/Tests.hs
@@ -10,8 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "bracket-push" $
-          describe "arePaired" $ for_ cases test
+specs = describe "arePaired" $ for_ cases test
   where
     test Case{..} = it description $ arePaired input `shouldBe` expected
 

diff --git a/exercises/clock/package.yaml b/exercises/clock/package.yaml
@@ -1,5 +1,5 @@
 name: clock
-version: 1.0.1.2
+version: 1.0.1.3
 
 dependencies:
   - base

diff --git a/exercises/clock/test/Tests.hs b/exercises/clock/test/Tests.hs
@@ -10,7 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "clock" $ do
+specs = do
 
     -- Track-specific tests.
 

diff --git a/exercises/connect/package.yaml b/exercises/connect/package.yaml
@@ -1,5 +1,5 @@
 name: connect
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

diff --git a/exercises/connect/test/Tests.hs b/exercises/connect/test/Tests.hs
@@ -10,8 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "connect" $
-          describe "winner" $ for_ cases test
+specs = describe "winner" $ for_ cases test
   where
 
     test Case{..} = it description assertion

diff --git a/exercises/crypto-square/package.yaml b/exercises/crypto-square/package.yaml
@@ -1,5 +1,5 @@
 name: crypto-square
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base

diff --git a/exercises/crypto-square/test/Tests.hs b/exercises/crypto-square/test/Tests.hs
@@ -12,8 +12,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "crypto-square" $
-          describe "encode" $ for_ cases test
+specs = describe "encode" $ for_ cases test
   where
 
     test Case{..} = describe description $ do

diff --git a/exercises/custom-set/package.yaml b/exercises/custom-set/package.yaml
@@ -1,5 +1,5 @@
 name: custom-set
-version: 1.0.1.2
+version: 1.0.1.3
 
 dependencies:
   - base

diff --git a/exercises/custom-set/test/Tests.hs b/exercises/custom-set/test/Tests.hs
@@ -25,7 +25,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "custom-set" $ do
+specs = do
 
     describe "standard tests" $ do
 

diff --git a/exercises/difference-of-squares/package.yaml b/exercises/difference-of-squares/package.yaml
@@ -1,5 +1,5 @@
 name: difference-of-squares
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

diff --git a/exercises/difference-of-squares/test/Tests.hs b/exercises/difference-of-squares/test/Tests.hs
@@ -9,7 +9,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "differenceOfSquares" $ do
+specs = do
 
     describe "squareOfSums" $ do
       it "square of sum 5"   $ squareOfSums   5 `shouldBe`      225

diff --git a/exercises/dominoes/package.yaml b/exercises/dominoes/package.yaml
@@ -1,5 +1,5 @@
 name: dominoes
-version: 1.0.1.3
+version: 1.0.1.4
 
 dependencies:
   - base

diff --git a/exercises/dominoes/test/Tests.hs b/exercises/dominoes/test/Tests.hs
@@ -14,8 +14,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "dominoes" $
-          describe "chain" $ for_ cases test
+specs = describe "chain" $ for_ cases test
   where
 
     test Case{..} = it description assertion

diff --git a/exercises/etl/package.yaml b/exercises/etl/package.yaml
@@ -1,5 +1,5 @@
 name: etl
-version: 1.0.0.2
+version: 1.0.0.3
 
 dependencies:
   - base

diff --git a/exercises/etl/test/Tests.hs b/exercises/etl/test/Tests.hs
@@ -10,7 +10,7 @@ main :: IO ()
 main = hspecWith defaultConfig {configFastFail = True} specs
 
 specs :: Spec
-specs = describe "etl" $
+specs =
 
   describe "transform" $ do
 

diff --git a/exercises/food-chain/package.yaml b/exercises/food-chain/package.yaml
@@ -1,5 +1,5 @@
 name: food-chain
-version: 0.1.0.1
+version: 0.1.0.2
 
 dependencies:
   - base