From c88653ab60281634899f10b80464f74d315c7e11 Mon Sep 17 00:00:00 2001 From: Fedor Gogolev Date: Sat, 21 Dec 2013 17:27:02 +0400 Subject: [PATCH] Compile without warnings in 7.4 and 7.6 --- System/IO/Pipeline.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/System/IO/Pipeline.hs b/System/IO/Pipeline.hs index 18b109c..ea68602 100644 --- a/System/IO/Pipeline.hs +++ b/System/IO/Pipeline.hs @@ -2,9 +2,15 @@ A pipeline closes itself when a read or write causes an error, so you can detect a broken pipeline by checking isClosed. It also closes itself when garbage collected, or you can close it explicitly. -} -{-# LANGUAGE DoRec, RecordWildCards, NamedFieldPuns, ScopedTypeVariables #-} +{-# LANGUAGE RecordWildCards, NamedFieldPuns, ScopedTypeVariables #-} {-# LANGUAGE CPP #-} +#if (__GLASGOW_HASKELL__ >= 706) +{-# LANGUAGE RecursiveDo #-} +#else +{-# LANGUAGE DoRec #-} +#endif + module System.IO.Pipeline ( IOE, -- * IOStream