Permalink
Browse files

Merge.hs: cleanup: clean 'unFlagName' definition

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
  • Loading branch information...
1 parent e5f547f commit f37822ce694cf507c6265d5f9cfc83777d3b5852 @trofi trofi committed Dec 29, 2013
Showing with 1 addition and 3 deletions.
  1. +1 −3 Merge.hs
View
@@ -495,9 +495,7 @@ mergeEbuild verbosity target cat ebuild = do
notice verbosity $ "Default and current " ++ emeta ++ " differ."
unFlagName :: Cabal.FlagName -> String
-unFlagName f =
- let Cabal.FlagName y = f
- in y
+unFlagName (Cabal.FlagName fname) = fname
type FlagDep = (Cabal.FlagAssignment,[Portage.Dependency])
type FlagDepH = (FlagDep,[FlagDep])

0 comments on commit f37822c

Please sign in to comment.