diff --git a/app/Options.hs b/app/Options.hs
--- a/app/Options.hs
+++ b/app/Options.hs
@@ -5,6 +5,7 @@
     ) where
 
 import Control.Monad
+import Data.Semigroup ((<>))
 import Options.Applicative
 
 import qualified Data.Text as T
diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,8 @@
+0.2.1.1
+-------
+
+- Make it compile with ghc-8.0.2
+
 0.2.1.0
 -------
 
diff --git a/hascar.cabal b/hascar.cabal
--- a/hascar.cabal
+++ b/hascar.cabal
@@ -1,5 +1,5 @@
 name:                hascar
-version:             0.2.1.0
+version:             0.2.1.1
 synopsis:            Decompress SAPCAR archives
 description:         Decompress SAPCAR archives
 homepage:            https://github.com/VirtualForgeGmbH/hascar
@@ -43,11 +43,11 @@
                      , ansi-wl-pprint >= 0.6.7.3 && < 0.7
                      , binary >= 0.7.5.0 && < 0.9
                      , bytestring >= 0.10.6.0 && < 0.11
-                     , directory >= 1.2.2.0 && < 1.3
+                     , directory
                      , filepath >= 1.4.0.0 && < 1.5
                      , gitrev >= 1.2.0 && < 1.3
                      , hascar
-                     , optparse-applicative >= 0.12.1.0 && < 0.13
+                     , optparse-applicative
                      , path >= 0.5.7 && < 0.6
                      , text >= 1.2.2.1 && < 1.3
                      , transformers >= 0.4.2.0 && < 0.6
diff --git a/src/Codec/Archive/SAPCAR.hs b/src/Codec/Archive/SAPCAR.hs
--- a/src/Codec/Archive/SAPCAR.hs
+++ b/src/Codec/Archive/SAPCAR.hs
@@ -194,7 +194,7 @@
     => Path b File
     -> (forall s. SapCar s m a)
     -> m a
-withSapCarPath sarfile = bracket open close . withSapCarHandle
+withSapCarPath sarfile a = bracket open close $ withSapCarHandle a
     where
         open   = liftIO $ openBinaryFile (toFilePath sarfile) ReadMode
         close  = liftIO . hClose
@@ -205,7 +205,7 @@
     => FilePath
     -> (forall s. SapCar s m a)
     -> m a
-withSapCarFile sarfile = bracket open close . withSapCarHandle
+withSapCarFile sarfile a = bracket open close $ withSapCarHandle a
     where
         open   = liftIO $ openBinaryFile sarfile ReadMode
         close  = liftIO . hClose