@@ -1,3 +1,4 @@
1{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE GeneralizedNewtypeDeriving #-}
3{-# LANGUAGE GeneralizedNewtypeDeriving #-}
3{-# LANGUAGE NoImplicitPrelude #-}
4{-# LANGUAGE NoImplicitPrelude #-}
@@ -58,6 +59,10 @@ data ParseFailedException = ParseFailedException TypeRep Text
58 deriving (Show, Typeable)
59 deriving (Show, Typeable)
59instance Exception ParseFailedException
60instance Exception ParseFailedException
62+#ifndef MIN_VERSION_streaming_commons
63+#define MIN_VERSION_streaming_commons(x, y, z) 1
65+#if !MIN_VERSION_streaming_commons(0,1,7)
61data ProcessExitedUnsuccessfully = ProcessExitedUnsuccessfully CreateProcess ExitCode
66data ProcessExitedUnsuccessfully = ProcessExitedUnsuccessfully CreateProcess ExitCode
62 deriving Typeable
67 deriving Typeable
63instance Show ProcessExitedUnsuccessfully where
68instance Show ProcessExitedUnsuccessfully where
@@ -91,6 +96,7 @@ withCheckedProcess cp f = do
91 ec <- waitForStreamingProcess sph
96 ec <- waitForStreamingProcess sph
92 liftIO $ checkExitCode cp ec
97 liftIO $ checkExitCode cp ec
93 return res
98 return res
95newtype Maintainer = Maintainer { unMaintainer :: Text }
101newtype Maintainer = Maintainer { unMaintainer :: Text }
96 deriving (Show, Eq, Ord, Hashable, ToJSON, FromJSON, IsString)
102 deriving (Show, Eq, Ord, Hashable, ToJSON, FromJSON, IsString)