fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2020-10-14 16:43:55 +02:00
parent f1ba4659ac
commit 3f5b5727e3
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Model/Migration.hs
View File

@ -193,15 +193,13 @@ migrateAlwaysSafe = do
let missingChangelogItems = Set.toList $ Set.fromList universeF `Set.difference` recordedChangelogItems' let missingChangelogItems = Set.toList $ Set.fromList universeF `Set.difference` recordedChangelogItems'
where recordedChangelogItems' = Set.fromList [ changelogItemFirstSeenItem | Entity _ ChangelogItemFirstSeen{..} <- recordedChangelogItems ] where recordedChangelogItems' = Set.fromList [ changelogItemFirstSeenItem | Entity _ ChangelogItemFirstSeen{..} <- recordedChangelogItems ]
unless (null missingChangelogItems) $ do unless (null missingChangelogItems) $ do
now <- iso8601Show . localDay . TZ.utcToLocalTimeTZ appTZ <$> liftIO getCurrentTime today <- localDay . TZ.utcToLocalTimeTZ appTZ <$> liftIO getCurrentTime
addMigration False $ do addMigration False $ do
let sql = [st|INSERT INTO changelog_item_first_seen (item, first_seen) VALUES #{vals}|] let sql = [st|INSERT INTO changelog_item_first_seen (item, first_seen) VALUES #{vals}|]
vals = Text.intercalate ", " $ do vals = Text.intercalate ", " $ do
item <- missingChangelogItems item <- missingChangelogItems
let itemDay = case Map.lookup item changelogItemDays of let itemDay = Map.findWithDefault today item changelogItemDays
Just d -> iso8601Show d return [st|('#{toPathPiece item}', '#{iso8601Show itemDay}')|]
Nothing -> now
return [st|('#{toPathPiece item}', '#{itemDay}')|]
in sql in sql
{- {-