diff --git a/llvm-pretty b/llvm-pretty
index a454fcbe..94e38484 160000
--- a/llvm-pretty
+++ b/llvm-pretty
@@ -1 +1 @@
-Subproject commit a454fcbe4192c07bcced2cf1384686dc7359a4a3
+Subproject commit 94e384842b214ba72446d1694446fb5261ab6ce2
diff --git a/src/Data/LLVM/BitCode/Parse.hs b/src/Data/LLVM/BitCode/Parse.hs
index 9b81d528..5e4a7d9b 100644
--- a/src/Data/LLVM/BitCode/Parse.hs
+++ b/src/Data/LLVM/BitCode/Parse.hs
@@ -13,13 +13,15 @@ import           Text.LLVM.AST
 import           Text.LLVM.PP
 
 import           Control.Applicative (Alternative(..))
+import           Control.Monad (MonadPlus(..), unless)
 #if !MIN_VERSION_base(4,13,0)
 import           Control.Monad.Fail (MonadFail)
 import qualified Control.Monad.Fail -- makes fail visible for instance
 #endif
-import           Control.Monad.Except
-import           Control.Monad.Reader
-import           Control.Monad.State.Strict
+import           Control.Monad.Fix (MonadFix)
+import           Control.Monad.Except (MonadError(..), Except, runExcept)
+import           Control.Monad.Reader (MonadReader(..), ReaderT(..))
+import           Control.Monad.State.Strict (MonadState(..), StateT(..))
 import           Data.Maybe (fromMaybe)
 import           Data.Semigroup
 import           Data.Typeable (Typeable)