diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,6 +1,7 @@
 # Base64-lens
 
 [![Build Status](https://travis-ci.com/emilypi/base64-lens.svg?branch=master)](https://travis-ci.com/emilypi/base64-lens)
+[![Hackage](https://img.shields.io/hackage/v/base64-lens.svg)](https://hackage.haskell.org/package/base64-lens)
 
 This package provides optics and convenient pattern synonyms for the [base64](https://hackage.haskell.org/package/base64) library.
 
diff --git a/base64-lens.cabal b/base64-lens.cabal
--- a/base64-lens.cabal
+++ b/base64-lens.cabal
@@ -1,7 +1,7 @@
 cabal-version:       1.24
 
 name:                base64-lens
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            Optics for the Base64 library
 description:
   Prisms and pattern synonyms for the Base64 library
@@ -37,10 +37,10 @@
                      , Data.Text.Encoding.Base64.Lens
 
   build-depends:       base       >=4.10 && <5
-                     , base64     >=0.2.0.0
+                     , base64     >=0.2  && <0.3
                      , bytestring >=0.10 && <0.11
-                     , lens       >=4.0 && <4.19
-                     , text       >=1.2 && <1.3
+                     , lens       >=4.0  && <4.19
+                     , text
 
   hs-source-dirs:      src
   default-language:    Haskell2010
diff --git a/src/Data/ByteString/Base64/Lens.hs b/src/Data/ByteString/Base64/Lens.hs
--- a/src/Data/ByteString/Base64/Lens.hs
+++ b/src/Data/ByteString/Base64/Lens.hs
@@ -113,25 +113,25 @@
 -- -------------------------------------------------------------------------- --
 -- Patterns
 
--- | Unidirectional pattern synonym for base64-encoded 'ByteString' values.
+-- | Bidirectional pattern synonym for base64-encoded 'ByteString' values.
 --
 pattern Base64 :: ByteString -> ByteString
 pattern Base64 a <- (preview _Base64 -> Just a) where
     Base64 a = _Base64 # a
 
--- | Unidirectional pattern synonym for base64url-encoded 'ByteString' values.
+-- | Bidirectional pattern synonym for base64url-encoded 'ByteString' values.
 --
 pattern Base64Url :: ByteString -> ByteString
 pattern Base64Url a <- (preview _Base64Url -> Just a) where
     Base64Url a = _Base64Url # a
 
--- | Unidirectional pattern synonym for unpadded base64-encoded 'ByteString' values.
+-- | Bidirectional pattern synonym for unpadded base64-encoded 'ByteString' values.
 --
 pattern Base64Unpadded :: ByteString -> ByteString
 pattern Base64Unpadded a <- (preview _Base64Unpadded -> Just a) where
     Base64Unpadded a = _Base64Unpadded # a
 
--- | Unidirectional pattern synonym for unpadded base64url-encoded 'ByteString' values.
+-- | Bidirectional pattern synonym for unpadded base64url-encoded 'ByteString' values.
 --
 pattern Base64UrlUnpadded :: ByteString -> ByteString
 pattern Base64UrlUnpadded a <- (preview _Base64UrlUnpadded -> Just a) where
diff --git a/src/Data/Text/Encoding/Base64/Lens.hs b/src/Data/Text/Encoding/Base64/Lens.hs
--- a/src/Data/Text/Encoding/Base64/Lens.hs
+++ b/src/Data/Text/Encoding/Base64/Lens.hs
@@ -112,26 +112,26 @@
 -- -------------------------------------------------------------------------- --
 -- Patterns
 
--- | Unidirectional pattern synonym for base64-encoded 'Text' values.
+-- | Bidirectional pattern synonym for base64-encoded 'Text' values.
 --
 pattern Base64 :: Text -> Text
-pattern Base64 a <- (preview _Base64 -> Just a) where
-    Base64 a = _Base64 # a
+pattern Base64 a <- (preview _Base64 -> Just a)
+  where Base64 a = _Base64 # a
 
--- | Unidirectional pattern synonym for base64url-encoded 'Text' values.
+-- | Bidirectional pattern synonym for base64url-encoded 'Text' values.
 --
 pattern Base64Url :: Text -> Text
-pattern Base64Url a <- (preview _Base64Url -> Just a) where
-    Base64Url a = _Base64Url # a
+pattern Base64Url a <- (preview _Base64Url -> Just a)
+  where Base64Url a = _Base64Url # a
 
--- | Unidirectional pattern synonym for unpadded base64-encoded 'Text' values.
+-- | Bidirectional pattern synonym for unpadded base64-encoded 'Text' values.
 --
 pattern Base64Unpadded :: Text -> Text
-pattern Base64Unpadded a <- (preview _Base64Unpadded -> Just a) where
-    Base64Unpadded a = _Base64Unpadded # a
+pattern Base64Unpadded a <- (preview _Base64Unpadded -> Just a)
+  where Base64Unpadded a = _Base64Unpadded # a
 
--- | Unidirectional pattern synonym for unpadded base64url-encoded 'Text' values.
+-- | Bidirectional pattern synonym for unpadded base64url-encoded 'Text' values.
 --
 pattern Base64UrlUnpadded :: Text -> Text
-pattern Base64UrlUnpadded a <- (preview _Base64UrlUnpadded -> Just a) where
-    Base64UrlUnpadded a = _Base64UrlUnpadded # a
+pattern Base64UrlUnpadded a <- (preview _Base64UrlUnpadded -> Just a)
+  where Base64UrlUnpadded a = _Base64UrlUnpadded # a