formatting

This commit is contained in:
Aleksy Wroblewski 2021-03-18 20:41:59 +01:00
parent 2721426b06
commit 2005e5e033

View File

@ -305,7 +305,7 @@ isEmpty :: String -> Bool
isEmpty str = length str == 0
removeTitleless :: [ShadowItem] -> [ShadowItem]
removeTitleless = filter (\si -> not .isEmpty . getTitle $ si)
removeTitleless = filter (\si -> not . isEmpty . getTitle $ si)
extractItemsStartingFromUrl shadowLibrary start extractor = do
items <- runX $ (arr (const start) >>> setTraceLevel 1 >>> extractor)