Wie definiert man eine Variable in einem Tupel?

Question

Jedes Mal, wenn ich diesen Code auszuführen versucht, gibt der Compiler eine 'nicht im Gültigkeitsbereich' Fehler für die Variablen redirectUrlGraphEmail, , aboutContents und staticDir:

routes :: [ (String, ServerPart Response)] 
routes = [ 
("graph-fb", seeOther redirectUrlGraphEmail $ toResponse ""), 
("post-fb", seeOther redirectUrlGraphPost $ toResponse ""),    
("about", aboutResponse aboutContents), 
("static", serveDirectory DisableBrowsing [] staticDir)] 

Diese Variablen deklariert von:

staticDir <- getStaticDir 
redirectUrlGraphEmail <- retrieveAuthURL testUrl 
redirectUrlGraphPost <- retrieveAuthURL testPostUrl 
aboutContents <- LazyIO.readFile $ markdownPath ++ "README.md" 
privacyContents <- LazyIO.readFile $ markdownPath ++ "PRIVACY.md" 

aber ich bin mir nicht sicher, wo ich diese Zeilen in das Modul hinzufügen soll. Irgendwelche Hilfe hier?

Answer 1

Ich weiß nicht happstack, aber es scheint, dass Ihre Variablen redirectUrlGraphEmail usw. in Ihrem Haupt (oder zumindest in einigen Monaden) definiert sind, oder? Und dann möchten Sie route als separate Funktion in Ihrem Modul definieren.

Die Sache ist, die Variablen, die Sie definieren (die Sie mit <- binden um genau zu sein), um Ihre main in Ihrem main lokal sind, so dass der Rest des Programms keinen Zugang zu ihnen (weshalb der Compiler sagt Ihnen, dass sie nicht im Geltungsbereich sind, wenn Sie versuchen, sie in routes zu verwenden). Wenn Sie davon Gebrauch machen wollen, müssen Sie routes als eine Funktion definieren, sie als Parameter nehmen, so in Ihrem Fall:

routes redirectUrlGraphEmail redirectUrlGraphPost = [ 
("graph-fb", seeOther redirectUrlGraphEmail $ toResponse ""), 
("post-fb", seeOther redirectUrlGraphPost $ toResponse ""),    
("about", aboutResponse aboutContents), 
("static", serveDirectory DisableBrowsing [] staticDir)] 

Und dann von Ihrem main Anruf routes mit den Variablen, die Sie binden haben. Mache ich einen Sinn?