当我尝试在haskell中使用列表的2个输入时，非详尽的模式

Question

numOfSell :: Portfolio -> [StockHistory] -> Integer
numOfSell (_, h@((s, q) : _)) history = case history of
  [] -> 0
  (s, p) : _
    |(head p > last p) && (head p > mean (take 15 p)) -> floor ((integerToFloat q) / 2)
    |(head p > last p) && (head p > 2 * mean (take 20 p)) -> q
    |(head p < 1.5 * mean (take 20 p)) && (head p > 0.8 * (last p)) -> floor ((integerToFloat q) / 2)
    |otherwise           -> 0

当我想使用h和历史的两个列表时，它说我的功能中有非详尽的部分。我不知道为什么会这样，以及如何解决它。