Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Merge.hs: cleanup: clean 'unFlagName' definition

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
  • Loading branch information...
commit f37822ce694cf507c6265d5f9cfc83777d3b5852 1 parent e5f547f
@trofi trofi authored
Showing with 1 addition and 3 deletions.
  1. +1 −3 Merge.hs
View
4 Merge.hs
@@ -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])
Please sign in to comment.
Something went wrong with that request. Please try again.