improve the parseFromFile functions

src/Text/Parsec/ByteString.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE Safe #-}
 
 -----------------------------------------------------------------------------
@@ -18,6 +19,10 @@ module Text.Parsec.ByteString
     ( Parser, GenParser, parseFromFile
     ) where
 
+#if __GLASGOW_HASKELL__ < 710
+import Data.Functor((<$>))
+#endif
+
 import Text.Parsec.Error
 import Text.Parsec.Prim
 
@@ -37,6 +42,4 @@ type GenParser t st = Parsec C.ByteString st
 -- >              }
 
 parseFromFile :: Parser a -> FilePath -> IO (Either ParseError a)
-parseFromFile p fname
-    = do input <- C.readFile fname
-         return (runP p () fname input)
+parseFromFile p fname = runP p () fname <$> C.readFile fname

src/Text/Parsec/ByteString/Lazy.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE Safe #-}
 
 -----------------------------------------------------------------------------
@@ -18,6 +19,10 @@ module Text.Parsec.ByteString.Lazy
     ( Parser, GenParser, parseFromFile
     ) where
 
+#if __GLASGOW_HASKELL__ < 710
+import Data.Functor((<$>))
+#endif
+
 import Text.Parsec.Error
 import Text.Parsec.Prim
 
@@ -37,6 +42,4 @@ type GenParser t st = Parsec C.ByteString st
 -- >              }
 
 parseFromFile :: Parser a -> FilePath -> IO (Either ParseError a)
-parseFromFile p fname
-    = do input <- C.readFile fname
-         return (runP p () fname input)
+parseFromFile p fname = runP p () fname <$> C.readFile fname

src/Text/Parsec/String.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE Safe #-}
 
 -----------------------------------------------------------------------------
@@ -18,6 +19,10 @@ module Text.Parsec.String
     ( Parser, GenParser, parseFromFile
     ) where
 
+#if __GLASGOW_HASKELL__ < 710
+import Data.Functor((<$>))
+#endif
+
 import Text.Parsec.Error
 import Text.Parsec.Prim
 
@@ -34,6 +39,4 @@ type GenParser tok st = Parsec [tok] st
 -- >                  Right xs  -> print (sum xs)
 -- >              }
 parseFromFile :: Parser a -> FilePath -> IO (Either ParseError a)
-parseFromFile p fname
-    = do input <- readFile fname
-         return (runP p () fname input)
+parseFromFile p fname = runP p () fname <$> readFile fname

src/Text/Parsec/Text.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE Safe #-}
 
 -----------------------------------------------------------------------------
@@ -18,6 +19,10 @@ module Text.Parsec.Text
     ( Parser, GenParser, parseFromFile
     ) where
 
+#if __GLASGOW_HASKELL__ < 710
+import Data.Functor((<$>))
+#endif
+
 import qualified Data.Text as Text
 import Text.Parsec.Prim
 import Text.Parsec.Error
@@ -39,6 +44,4 @@ type GenParser st = Parsec Text.Text st
 -- @since 3.1.14.0
 
 parseFromFile :: Parser a -> FilePath -> IO (Either ParseError a)
-parseFromFile p fname
-    = do input <- T.readFile fname
-         return (runP p () fname input)
+parseFromFile p fname = runP p () fname <$> T.readFile fname

src/Text/Parsec/Text/Lazy.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE Safe #-}
 
 -----------------------------------------------------------------------------
@@ -18,6 +19,10 @@ module Text.Parsec.Text.Lazy
     ( Parser, GenParser, parseFromFile
     ) where
 
+#if __GLASGOW_HASKELL__ < 710
+import Data.Functor((<$>))
+#endif
+
 import qualified Data.Text.Lazy as Text
 import Text.Parsec.Prim
 import Text.Parsec.Error
@@ -39,6 +44,4 @@ type GenParser st = Parsec Text.Text st
 -- @since 3.1.14.0
 
 parseFromFile :: Parser a -> FilePath -> IO (Either ParseError a)
-parseFromFile p fname
-    = do input <- TL.readFile fname
-         return (runP p () fname input)
+parseFromFile p fname = runP p () fname <$> TL.readFile fname