Fibonacci sequence generator in Haskell. Given an upper bounds, will return a list of all numbers in the sequence that are <= the upper bounds.

Fibonacci.hs

module Main where 
loop :: Integer -> [Integer] -> Integer -> Integer -> [Integer]
loop upper list cur prev 
  | (cur == upper) = list ++ [cur]
  |  (cur > upper) = list
  | otherwise = loop upper (list ++ [cur]) (cur + prev) cur
fibSeq :: Integer -> [Integer]
fibSeq 0 = [0]
fibSeq 1 = [0,1]
fibSeq n = loop n [0] 1 0

main = print (fibSeq 10000)