Only add Alternative (P.Either String) instance for transformers >= 0.6

codedownio · Jul 24, 2024 · dd83d02 · dd83d02
1 parent ada2154
commit dd83d02
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/DockerEngine/Core.hs b/lib/DockerEngine/Core.hs
@@ -1,5 +1,5 @@
-{-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE CPP #-}
+{-# LANGUAGE FlexibleInstances #-}
 {-
    Docker Engine API
 
@@ -447,10 +447,12 @@ instance P.Show DateTime where
 instance MimeRender MimeMultipartFormData DateTime where
   mimeRender _ = mimeRenderDefaultMultipartFormData
 
+#if MIN_VERSION_transformers(0,6,0)
 instance Alternative (P.Either String) where
     empty        = P.Left ""
     P.Left _ <|> n = n
     m      <|> _ = m
+#endif
 
 -- | @_parseISO8601@
 _readDateTime :: (TI.ParseTime t, Monad m, Alternative m, P.MonadFail m) => String -> m t