configSpec :: IO ()
configSpec = do
  hspec $
    do describe "Config" $
         describe "FromJSON" $
         do it "full" $
              decode sampleFullConfigJSON `shouldBe` Just sampleFullConfig
            it "empty" $
              decode sampleEmptyConfigJSON `shouldBe` Just (mempty :: Config)
       describe "Monoid" $
         do it "mappends full onto empty" $
              mempty <> sampleFullConfig `shouldBe` sampleFullConfig
            it "mappends empty onto full" $
              sampleFullConfig <> mempty `shouldBe` sampleFullConfig
            it "mappends full onto full" $
              Config (Just "key456") (Just (Coordinate 3 4)) <> sampleFullConfig `shouldBe`
              sampleFullConfig
  quickBatch $ monoid (undefined :: Config)
configSpec :: IO ()
configSpec = do
  hspec $
    do describe "Config" $
         describe "FromJSON" $
         do it "full" $
              decode sampleFullConfigJSON `shouldBe` Just sampleFullConfig
            it "empty" $
              decode sampleEmptyConfigJSON `shouldBe` Just (mempty :: Config)
       describe "Monoid" $
         do it "mappends full onto empty" $
              mempty <> sampleFullConfig `shouldBe` sampleFullConfig
            it "mappends empty onto full" $
              sampleFullConfig <> mempty `shouldBe` sampleFullConfig
            it "mappends full onto full" $
              Config (Just "key456") (Just (Coordinate 3 4)) <> sampleFullConfig `shouldBe`
              sampleFullConfig
  quickBatch $ monoid (undefined :: Config)
configSpec = do
  hspec $
    do describe "Config" $
         describe "FromJSON" $
         do it "full" $
              decode sampleFullConfigJSON `shouldBe` Just sampleFullConfig
            it "empty" $
              decode sampleEmptyConfigJSON `shouldBe` Just (mempty :: Config)
       describe "Monoid" $
         do it "mappends full onto empty" $
              mempty <> sampleFullConfig `shouldBe` sampleFullConfig
            it "mappends empty onto full" $
              sampleFullConfig <> mempty `shouldBe` sampleFullConfig
            it "mappends full onto full" $
              Config (Just "key456") (Just (Coordinate 3 4)) <> sampleFullConfig `shouldBe`
              sampleFullConfig
  quickBatch $ monoid (undefined :: Config)