[Haskell-cafe] Main function error

[applebiz89]

I have compiled each function independently and they have compiled the only
problem is the main function..

I keep getting the error 'films not defined' and I am not sure why

[code]

type Title = String
type Director = String
type Year = Int
type Fan = String

data Film = Film Title Director Year [Fan] deriving Show
	
-- List of films

testDatabase :: [Film]
testDatabase = [ (Film "Casino Royale" "Martin Campbell" 2006 ["Garry",
"Dave", "Zoe"])]

-- Function 

filmsInGivenYear :: Year -> [Film] -> [String]
filmsInGivenYear year' films = [ title | (Film title director year fans) <-
films, year == year']

doFilmsInGivenYear :: [Film] -> IO ()
doFilmsInGivenYear films  = do putStrLn "which year?"
                               text <- getLine
                               let year' = read text :: Int
                               let answer = filmsInGivenYear year' films
                               print answer

main :: IO ()
main = do 
         doFilmsInGivenYear films
         main

[/code]

if the other functions are compiling without this error im not sure as to
why the main function does not compile because of the films...any light on
this?

Thanks
-- 
View this message in context: http://www.nabble.com/Main-function-error-tp23506481p23506481.html
Sent from the Haskell - Haskell-Cafe mailing list archive at Nabble.com.