@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
12{-# LANGUAGE DeriveDataTypeable #-}
23{-# LANGUAGE GeneralizedNewtypeDeriving #-}
34{-# LANGUAGE NoImplicitPrelude #-}
@@ -58,6 +59,10 @@ data ParseFailedException = ParseFailedException TypeRep Text
5859 deriving (Show, Typeable)
5960instance Exception ParseFailedException
6061
62+#ifndef MIN_VERSION_streaming_commons
63+#define MIN_VERSION_streaming_commons(x, y, z) 1
64+#endif
65+#if !MIN_VERSION_streaming_commons(0,1,7)
6166data ProcessExitedUnsuccessfully = ProcessExitedUnsuccessfully CreateProcess ExitCode
6267 deriving Typeable
6368instance Show ProcessExitedUnsuccessfully where
@@ -91,6 +96,7 @@ withCheckedProcess cp f = do
9196 ec <- waitForStreamingProcess sph
9297 liftIO $ checkExitCode cp ec
9398 return res
99+#endif
94100
95101newtype Maintainer = Maintainer { unMaintainer :: Text }
96102 deriving (Show, Eq, Ord, Hashable, ToJSON, FromJSON, IsString)