diff options
Diffstat (limited to 'Database')
-rw-r--r-- | Database/Keys.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Database/Keys.hs b/Database/Keys.hs index 8cea5c940..38d9742df 100644 --- a/Database/Keys.hs +++ b/Database/Keys.hs @@ -188,7 +188,7 @@ getAssociatedFiles' sk = readDb $ do l <- select $ from $ \r -> do where_ (r ^. AssociatedKey ==. val sk) return (r ^. AssociatedFile) - return $ map (TopFilePath . unValue) l + return $ map (asTopFilePath . unValue) l {- Gets any keys that are on record as having a particular associated file. - (Should be one or none but the database doesn't enforce that.) -} |