diff --git a/source/src/BNFC/Backend/HaskellGADT.hs b/source/src/BNFC/Backend/HaskellGADT.hs
index 40a65ce2..56d26c9a 100644
--- a/source/src/BNFC/Backend/HaskellGADT.hs
+++ b/source/src/BNFC/Backend/HaskellGADT.hs
@@ -69,7 +69,8 @@ composOp composOpMod = unlines
      "",
      "import Prelude",
      "",
-     "import Control.Monad.Identity",
+     "import Control.Monad",
+     "import Data.Functor.Identity",
      "",
      "class Compos t where",
      "  compos :: (forall a. a -> m a) -> (forall a b. m (a -> b) -> m a -> m b)",