displayQuotes :: Config -> [SerializedType] -> InputT IO ()
displayQuotes _ [] = outputStrLn "No result !"
displayQuotes :: Config -> [SerializedType] -> InputT IO ()
displayQuotes _ [] = outputStrLn "No result !"
displayQuotes _ [] = outputStrLn "No result !"