タプルに含まれる変数を定義する方法は？

Question

私はこのコードを実行しようとしたたびに、コンパイラは変数redirectUrlGraphEmail、、aboutContentsは「しない範囲で」エラーを返し、staticDir：

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

：

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

これらの変数がで宣言されています

しかし、私はこれらの行をどこにモジュールに追加するべきかわかりません。どんな助け？

Answer 1

私はhappstackについてはわかりませんが、あなたの変数redirectUrlGraphEmailなどはあなたのメイン（または少なくともモナドの中のいくつか）に定義されているようですね。そして、モジュール内で別の関数としてrouteを定義したいとします。

事が理由コンパイラである（あなたがmainに（あなたが正確に<-と結合していること）を定義する変数はあなたのmainに対してローカルなので、あなたのプログラムの残りの部分は、それらへのアクセスを持っていない、ありますあなたがroutesでそれらを使用しようとすると、彼らが範囲にないことを伝えます）。

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

そしてあなたが結合してきた変数を使用してmainコールroutesから：あなたがそれらを利用したい場合は、あなたのケースではので、それらをパラメータとして取る関数としてroutesを定義する必要があります。私は意味がありますか？