Commit 8558340b authored by Benno Fünfstück's avatar Benno Fünfstück
Browse files

Tidy up

Remove uneeded import of join and add a wildcard pattern when f is
unused by fmap.
parent f6b172dd
......@@ -72,7 +72,6 @@ module Distribution.Compat.ReadP
import Control.Monad( MonadPlus(..), liftM2 )
import Data.Char (isSpace)
import Control.Applicative (Applicative(..))
import Control.Monad (join)
infixr 5 +++, <++
......@@ -87,7 +87,7 @@ import Data.Char (isSpace, toLower, isAlphaNum, isDigit)
import Data.Maybe (fromMaybe)
import Data.Tree as Tree (Tree(..), flatten)
import qualified Data.Map as Map
import Control.Monad (foldM, join)
import Control.Monad (foldM)
import Control.Applicative (Applicative(..))
import System.FilePath (normalise)
import Data.List (sortBy)
......@@ -117,7 +117,7 @@ data ParseResult a = ParseFailed PError | ParseOk [PWarning] a
deriving Show
instance Functor ParseResult where
fmap f (ParseFailed err) = ParseFailed err
fmap _ (ParseFailed err) = ParseFailed err
fmap f (ParseOk ws x) = ParseOk ws $ f x
instance Applicative ParseResult where
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment