haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-05 02:50:31 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Support for streaming-commons-0.1.7

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-09 16:38:58 +02:00
parent 102173a0ef
commit 5584814b64
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Stackage2/Prelude.hs
View File

@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE NoImplicitPrelude #-}
@ -58,6 +59,10 @@ data ParseFailedException = ParseFailedException TypeRep Text
deriving (Show, Typeable) deriving (Show, Typeable)
instance Exception ParseFailedException instance Exception ParseFailedException
#ifndef MIN_VERSION_streaming_commons
#define MIN_VERSION_streaming_commons(x, y, z) 1
#endif
#if !MIN_VERSION_streaming_commons(0,1,7)
data ProcessExitedUnsuccessfully = ProcessExitedUnsuccessfully CreateProcess ExitCode data ProcessExitedUnsuccessfully = ProcessExitedUnsuccessfully CreateProcess ExitCode
deriving Typeable deriving Typeable
instance Show ProcessExitedUnsuccessfully where instance Show ProcessExitedUnsuccessfully where
@ -91,6 +96,7 @@ withCheckedProcess cp f = do
ec <- waitForStreamingProcess sph ec <- waitForStreamingProcess sph
liftIO $ checkExitCode cp ec liftIO $ checkExitCode cp ec
return res return res
#endif
newtype Maintainer = Maintainer { unMaintainer :: Text } newtype Maintainer = Maintainer { unMaintainer :: Text }
deriving (Show, Eq, Ord, Hashable, ToJSON, FromJSON, IsString) deriving (Show, Eq, Ord, Hashable, ToJSON, FromJSON, IsString)