diff options
-rw-r--r-- | Types/Key.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Types/Key.hs b/Types/Key.hs index 598d5ed20..ea142e4aa 100644 --- a/Types/Key.hs +++ b/Types/Key.hs @@ -78,8 +78,12 @@ file2key s findfields _ v = v addbackend k v = Just k { keyBackendName = v } - addfield 's' k v = Just k { keySize = readish v } - addfield 'm' k v = Just k { keyMtime = readish v } + addfield 's' k v = do + sz <- readish v + return $ k { keySize = Just sz } + addfield 'm' k v = do + mtime <- readish v + return $ k { keyMtime = Just mtime } addfield _ _ _ = Nothing instance Arbitrary Key where |