From 31238665cba3ea11131483adfaf2e70f5252eb97 Mon Sep 17 00:00:00 2001
From: Mikhail Glushenkov <mikhail.glushenkov@gmail.com>
Date: Tue, 17 Mar 2015 20:19:39 +0100
Subject: [PATCH] 80-col violations.
---
Cabal/Distribution/Package.hs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/Cabal/Distribution/Package.hs b/Cabal/Distribution/Package.hs
index cb06e41bcc..e9b14e2184 100644
--- a/Cabal/Distribution/Package.hs
+++ b/Cabal/Distribution/Package.hs
@@ -217,7 +217,8 @@ mkPackageKey True pid deps holes =
fingerprintPackageKey stubName . fingerprintString $
display pid ++ "\n" ++
-- NB: packageKeyHash, NOT display
- concat [ display m ++ " " ++ packageKeyHash p' ++ ":" ++ display m' ++ "\n"
+ concat [ display m ++ " " ++ packageKeyHash p'
+ ++ ":" ++ display m' ++ "\n"
| (m, (p', m')) <- sortBy (comparing fst) holes] ++
concat [ packageKeyHash d ++ "\n"
| d <- sortBy (comparing packageKeyHash) deps]
@@ -277,7 +278,8 @@ packageKeyHash (PackageKey _ w1 w2) = toBase62 w1 ++ toBase62 w2
packageKeyHash (OldPackageKey pid) = display pid
packageKeyLibraryName :: PackageId -> PackageKey -> String
-packageKeyLibraryName pid (PackageKey _ w1 w2) = display pid ++ "-" ++ toBase62 w1 ++ toBase62 w2
+packageKeyLibraryName pid (PackageKey _ w1 w2) =
+ display pid ++ "-" ++ toBase62 w1 ++ toBase62 w2
packageKeyLibraryName _ (OldPackageKey pid) = display pid
instance Text PackageKey where
--
GitLab