Add Stackage badge! 🏅

higherkindness · Feb 6, 2020 · f2c848c · f2c848c
1 parent 105a9ae
commit f2c848c
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 7 deletions.
diff --git a/README.md b/README.md
@@ -2,6 +2,7 @@
 
 [![Actions Status](https://github.com/kutyel/avro-parser-haskell/workflows/Haskell%20CI/badge.svg)](https://github.com/kutyel/avro-parser-haskell/actions)
 [![Hackage](https://img.shields.io/hackage/v/language-avro.svg?logo=haskell)](https://hackage.haskell.org/package/language-avro)
+[![Stackage Nightly](http://stackage.org/package/language-avro/badge/nightly)](http://stackage.org/nightly/package/language-avro)
 [![ormolu](https://img.shields.io/badge/styled%20with-ormolu-blueviolet)](https://github.com/tweag/ormolu)
 
 Language definition and parser for AVRO (`.avdl`) files.

diff --git a/test/Spec.hs b/test/Spec.hs
@@ -129,10 +129,11 @@ main = hspec $ do
         `shouldBe` (Right $ Enum (TN "Suit" []) [] Nothing (fromList ["SPADES", "DIAMONDS", "CLUBS", "HEARTS"]))
     it "should parse named types" $
       parse parseSchema "" "example.seed.server.protocol.avro.PeopleResponse"
-        `shouldBe` ( Right $ NamedType $ TN
-                       { baseName = "PeopleResponse",
-                         namespace = ["example", "seed", "server", "protocol", "avro"]
-                       }
+        `shouldBe` ( Right $ NamedType $
+                       TN
+                         { baseName = "PeopleResponse",
+                           namespace = ["example", "seed", "server", "protocol", "avro"]
+                         }
                    )
     it "should parse simple records" $
       parse parseSchema "" simpleRecord
@@ -197,9 +198,9 @@ main = hspec $ do
       parse parseMethod "" "bytes echoBytes(bytes data);"
         `shouldBe` (Right $ Method "echoBytes" [Argument Bytes "data"] Bytes Null False)
     it "should parse custom type messages" $
-      let custom = NamedType "TestRecord" in
-        parse parseMethod "" "TestRecord echo(TestRecord `record`);"
-          `shouldBe` (Right $ Method "echo" [Argument custom "record"] custom Null False)
+      let custom = NamedType "TestRecord"
+       in parse parseMethod "" "TestRecord echo(TestRecord `record`);"
+            `shouldBe` (Right $ Method "echo" [Argument custom "record"] custom Null False)
     it "should parse multiple argument messages" $
       parse parseMethod "" "int add(int arg1, int arg2);"
         `shouldBe` (Right $ Method "add" [Argument Int "arg1", Argument Int "arg2"] Int Null False)