layout

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 {
+data Key = Key
-	keyName :: String,
+	{ keyName :: String
-	keyBackendName :: String,
+	, keyBackendName :: String
-	keySize :: Maybe Integer,
+	, keySize :: Maybe Integer
-	keyMtime :: Maybe EpochTime
+	, keyMtime :: Maybe EpochTime
-} deriving (Eq, Ord, Read, Show)
+	} deriving (Eq, Ord, Read, Show)
 
 {- A filename may be associated with a Key. -}
 type AssociatedFile = Maybe FilePath
 
 stubKey :: Key
-stubKey = Key {
+stubKey = Key
-	keyName = "",
+	{ keyName = ""
-	keyBackendName = "",
+	, keyBackendName = ""
-	keySize = Nothing,
+	, keySize = Nothing
-	keyMtime = Nothing
+	, keyMtime = Nothing
-}
+	}
 
 fieldSep :: Char
 fieldSep = '-'