diff --git a/purebred-email.cabal b/purebred-email.cabal
--- a/purebred-email.cabal
+++ b/purebred-email.cabal
@@ -1,6 +1,6 @@
 cabal-version:       2.2
 name:                purebred-email
-version:             0.6
+version:             0.6.0.1
 synopsis:            types and parser for email messages (including MIME)
 description:
   The purebred email library.  RFC 5322, MIME, etc.
@@ -37,7 +37,7 @@
   test-vectors/*.eml
   tests/golden/*.golden
 tested-with:
-  GHC ==8.8.4 || ==8.10.7 || ==9.0.2 || ==9.2.4 || ==9.4.2
+  GHC ==8.8.4 || ==8.10.7 || ==9.0.2 || ==9.2.7 || ==9.4.5 || ==9.6.1
 
 homepage:            https://github.com/purebred-mua/purebred-email
 bug-reports:         https://github.com/purebred-mua/purebred-email/issues
@@ -117,7 +117,7 @@
     , concise >= 0.1.0.1 && < 1
     , deepseq >= 1.4.2
     , random >= 1.2.0
-    , semigroupoids >= 5 && < 6
+    , semigroupoids >= 5 && < 7
     , stringsearch >= 0.3
   hs-source-dirs:      src
   default-language:    Haskell2010
diff --git a/src/Data/IMF.hs b/src/Data/IMF.hs
--- a/src/Data/IMF.hs
+++ b/src/Data/IMF.hs
@@ -73,7 +73,7 @@
 @
 analyse :: B.ByteString -> IO ()
 analyse input =
-  case 'parse' ('message' (const takeByteString)) of
+  case 'parse' ('message' (const takeByteString)) input of
     Left errMsg -> hPutStrLn stderr errMsg *> exitFailure
     Right (msg :: Message () B.ByteString) -> do
       T.putStrLn $ "subject: " <> foldOf ('headerSubject' 'defaultCharsets') msg