From 82819020608d663bc76cd08efa970473da64d092 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 4 Jul 2013 02:45:46 -0400
Subject: layout

---
 Types/Key.hs | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'Types')

diff --git a/Types/Key.hs b/Types/Key.hs
index 910819a14..a0c6d83bc 100644
--- a/Types/Key.hs
+++ b/Types/Key.hs
@@ -24,23 +24,23 @@ import Utility.QuickCheck
 
 {- A Key has a unique name, which is derived from a particular backend,
  - and may contain other optional metadata. -}
-data Key = Key {
-	keyName :: String,
-	keyBackendName :: String,
-	keySize :: Maybe Integer,
-	keyMtime :: Maybe EpochTime
-} deriving (Eq, Ord, Read, Show)
+data Key = Key
+	{ keyName :: String
+	, keyBackendName :: String
+	, keySize :: Maybe Integer
+	, keyMtime :: Maybe EpochTime
+	} deriving (Eq, Ord, Read, Show)
 
 {- A filename may be associated with a Key. -}
 type AssociatedFile = Maybe FilePath
 
 stubKey :: Key
-stubKey = Key {
-	keyName = "",
-	keyBackendName = "",
-	keySize = Nothing,
-	keyMtime = Nothing
-}
+stubKey = Key
+	{ keyName = ""
+	, keyBackendName = ""
+	, keySize = Nothing
+	, keyMtime = Nothing
+	}
 
 fieldSep :: Char
 fieldSep = '-'
-- 
cgit v1.2.3