diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+# 0.1.0.2
+
+- Expand version bounds to include tasy 1.4.
+
 # 0.1.0.1
 
 - Expand version bounds to include tasty 1.3.
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,3 +1,5 @@
+[![Build Status](https://travis-ci.org/jwoudenberg/junit-xml.svg?branch=trunk)](https://travis-ci.org/jwoudenberg/junit-xml)
+
 # junit-xml
 
 A library for producing JUnit style XML reports in Haskell, for consumption by CI platforms like Jenkins.
diff --git a/junit-xml.cabal b/junit-xml.cabal
--- a/junit-xml.cabal
+++ b/junit-xml.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: da921af1660cb968fd27fb14a85bb5264cf4ba37873600137376f5434834fd61
+-- hash: 72708238608fb2cef765e9a4e99c281514463f5ce7d370f27c767776c934e6a9
 
 name:           junit-xml
-version:        0.1.0.1
+version:        0.1.0.2
 synopsis:       Producing JUnit-style XML test reports.
 description:    Please see the README at <https://github.com/jwoudenberg/junit-xml>.
 category:       Web
@@ -52,6 +52,6 @@
   build-depends:
       base
     , junit-xml
-    , tasty >=1.1 && <1.4
+    , tasty >=1.1 && <1.5
     , tasty-golden >=2.3 && <2.4
   default-language: Haskell2010
diff --git a/src/Text/XML/JUnit.hs b/src/Text/XML/JUnit.hs
--- a/src/Text/XML/JUnit.hs
+++ b/src/Text/XML/JUnit.hs
@@ -238,7 +238,6 @@
     }
 
 class Outcome a where
-
   outcomeToXML :: a -> Maybe XML.Element
 
   outcomeCounter :: a -> Counts
@@ -246,7 +245,6 @@
 data Passed = Passed
 
 instance Outcome Passed where
-
   outcomeToXML _ = Nothing
 
   outcomeCounter _ = mempty {cumTests = 1}
@@ -254,7 +252,6 @@
 data Skipped = Skipped
 
 instance Outcome Skipped where
-
   outcomeToXML _ = Just $ XML.Element "skipped" mempty []
 
   outcomeCounter _ = mempty {cumSkipped = 1, cumTests = 1}
@@ -268,7 +265,6 @@
       }
 
 instance Outcome Failed where
-
   outcomeToXML = Just . encodeFailure
 
   outcomeCounter _ = mempty {cumFailed = 1, cumTests = 1}
@@ -312,7 +308,6 @@
       }
 
 instance Outcome Errored where
-
   outcomeToXML = Just . encodeError
 
   outcomeCounter _ = mempty {cumErrored = 1, cumTests = 1}
@@ -357,13 +352,14 @@
       }
 
 instance Semigroup Counts where
-  c1 <> c2 = Counts
-    { cumTests = cumTests c1 + cumTests c2,
-      cumFailed = cumFailed c1 + cumFailed c2,
-      cumErrored = cumErrored c1 + cumErrored c2,
-      cumSkipped = cumSkipped c1 + cumSkipped c2,
-      cumTime = cumTime c1 + cumTime c2
-    }
+  c1 <> c2 =
+    Counts
+      { cumTests = cumTests c1 + cumTests c2,
+        cumFailed = cumFailed c1 + cumFailed c2,
+        cumErrored = cumErrored c1 + cumErrored c2,
+        cumSkipped = cumSkipped c1 + cumSkipped c2,
+        cumTime = cumTime c1 + cumTime c2
+      }
 
 instance Monoid Counts where
   mempty = Counts 0 0 0 0 0