+ let decoded_timeline = decode timeline :: Maybe Timeline
+
+ when (isNothing decoded_timeline) $
+ hPutStrLn stderr $
+ "Couldn't retrieve "
+ ++ username
+ ++ "'s timeline. Skipping..."
+
+ let initial_timeline = fromMaybe [] decoded_timeline
+
+ case initial_timeline of
+ [] -> do