diff options
Diffstat (limited to 'science/hs-bio/files/patch-Bio__GFF3__FeatureHierSequences.hs')
| -rw-r--r-- | science/hs-bio/files/patch-Bio__GFF3__FeatureHierSequences.hs | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/science/hs-bio/files/patch-Bio__GFF3__FeatureHierSequences.hs b/science/hs-bio/files/patch-Bio__GFF3__FeatureHierSequences.hs deleted file mode 100644 index 6f83130df055..000000000000 --- a/science/hs-bio/files/patch-Bio__GFF3__FeatureHierSequences.hs +++ /dev/null @@ -1,19 +0,0 @@ ---- ./Bio/GFF3/FeatureHierSequences.hs.orig 2012-02-23 14:45:38.000000000 +0100 -+++ ./Bio/GFF3/FeatureHierSequences.hs 2013-05-01 00:28:58.000000000 +0200 -@@ -15,6 +15,7 @@ - import qualified Data.Map as M - import Data.Maybe - import qualified Data.Set as S -+import System.IO.Error (catchIOError) - - import Bio.Sequence.SeqData - import Bio.Sequence.Fasta -@@ -72,7 +73,7 @@ - return $ Seq seqname sequ Nothing - - catchIOErrors :: IO a -> ErrorT String IO a --catchIOErrors m = ErrorT { runErrorT = liftM Right m `catch` (return . Left . show) } -+catchIOErrors m = ErrorT { runErrorT = liftM Right m `catchIOError` (return . Left . show) } - - runGFF :: FilePath -> (ErrorT String (Reader FeatureHierSequences) a) -> ErrorT String IO a - runGFF gffname m = do gff <- catchIOErrors $ LBS.readFile gffname |