From 95693ea90582d7d240ed5a3c0dee9b417eed33c1 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 10 Sep 2009 11:11:56 +0000 Subject: [PATCH] fix warnings --- .../bin-package-db/Distribution/InstalledPackageInfo/Binary.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs b/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs index 212c8f9..6cc2b5c 100644 --- a/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs +++ b/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs @@ -1,4 +1,5 @@ {-# LANGUAGE RecordWildCards, TypeSynonymInstances, StandaloneDeriving, GeneralizedNewtypeDeriving #-} +{-# OPTIONS_GHC -fno-warn-orphans #-} ----------------------------------------------------------------------------- -- | -- Module : Distribution.InstalledPackageInfo.Binary @@ -14,7 +15,7 @@ module Distribution.InstalledPackageInfo.Binary ( ) where import Distribution.Version -import Distribution.Package +import Distribution.Package hiding (depends) import Distribution.License import Distribution.InstalledPackageInfo as IPI import Data.Binary as Bin @@ -123,7 +124,7 @@ instance Binary License where 5 -> return PublicDomain 6 -> return AllRightsReserved 7 -> return OtherLicense - 8 -> do str <- get; return (UnknownLicense str) + _ -> do str <- get; return (UnknownLicense str) instance Binary Version where put v = do put (versionBranch v); put (versionTags v) -- 1.7.10.4