formatting
This commit is contained in:
parent
2721426b06
commit
2005e5e033
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user