- web-devel - Haskell.org

Sample code for Persistent.MongoDB connections?
by Max Cantor 09 May '11

09 May '11

Has anyone been able to use the MongoDB backend in a real project yet? If so, would you mind sharing the code for setting up connections and the YesodPersist instance? I tried to follow the example for the Test in the backend code itself but that involved a lot of strange class instances and ended up breaking some other things in Yesod. If no one's done this yet, I'll work through it on me own, just looking for a shortcut ;) max

2 1

Yesod: Regarding Widgets and addJulius
by Mathew de Detrich 07 May '11

07 May '11

I seem to have come across a problem regarding javascript and using widgets (im using Yesod 0.7.3). I add javascript to widgets normally with addJulius, however when they get added into the head of the website, the tags that enclose the javascript code are <script> Instead of <script type="text/javascript"> I also think this is the reason why the javascript is not executing on my website Also unless I am missing something would it be possible to implement a function like addJulius but instead of adding it to the script to the <head> html page, the javascript gets concatenated into a .js file (which is returned by some route). Thanks

2 1

Yesod. Strange behavior. Persistent. Templating
by Anton Cheshkov 06 May '11

06 May '11

Hi Michael, i have found strange behavior. All worked fine. i change the one line in the *config/model *file from *Category* * name Text* to *Category* * name Text Desc* * * * * * * After that all application was broke . Seems like all 'exports' from * Model.hs* was lost. If i change back to '*name Text*' all works fine again. Thanks. * * -- Best regards, Cheshkov Anton Phone: +7 909 005 18 82 Skype: cheshkov_anton

3 4

Embedding hamlet that was binded in hamlet
by Aur Saraf 05 May '11

05 May '11

I guess this hamlet code shouldn't work currently: $maybe link <- mlink ^link^ I think that's too bad, as it is very useful sometimes. Maybe we should make it work? Is it too hard? Cheers, Aur

2 3

Fwd: Devel Server
by Mister Asafe Ribeiro 04 May '11

04 May '11

---------- Forwarded message ---------- From: Mister Asafe Ribeiro <asafe.hai.kai(a)gmail.com> Date: Mon, May 2, 2011 at 8:00 PM Subject: Re: [web-devel] Devel Server To: Michael Snoyman <michael(a)snoyman.com> What now ? I get that: Couldn't match expected type `Database.Persist.Base.EntityDef' with actual type `persistent-0.4.2:Database.Persist.Base.EntityD When I change the imports to Database.Persist.TH and Database.Persist.Base the file where is the foundation, KafeeZeit.hs, does not work anymore and I do not know what type/functions supply. I'm using Yesod 0.7 On Sun, May 1, 2011 at 11:57 PM, Michael Snoyman <michael(a)snoyman.com>wrote: > On Mon, May 2, 2011 at 5:53 AM, Mister Asafe Ribeiro > <asafe.hai.kai(a)gmail.com> wrote: > > When I try to run devel server of my yesod powered site i get: > > > > Could not find module `Database.Persist.TH': > > It is a member of the hidden package `persistent-0.4.2'. > > It is a member of the hidden package `persistent-0.3.1.3'. > > Use -v to see a list of the files searched for. > > > > What should I do to expose persistent module ? > > > > Actually, it's now part of persistent-template, try installing that > package. > > Michael > -- na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na -- na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na-na

2 4

Re: [web-devel] wai-handler-dev not finding Yesod
by Amitava Shee 04 May '11

04 May '11

cabal update followed by cabal upgrade yesod did it for me. Thanks. Amitava On Wed, May 4, 2011 at 3:06 PM, Amitava Shee <amitava.shee(a)gmail.com> wrote: > I have cabal installed yesod already and the app runs fine with runhaskell. > I get the error only when invoked via wai-handler-devel. > > -Amitava > > > On Wed, May 4, 2011 at 2:45 PM, Grant Weyburne <weyburne(a)gmail.com> wrote: > >> Hi Amitava, >> >> In case you are missing the yesod module. >> >> cabal install yesod >> >> (some small changes to get this to work with wai developer and yesod >= 7) >> >> Grant >> >> {-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, >> TemplateHaskell, OverloadedStrings #-} >> >> module HelloWorld where >> >> import Yesod >> >> data HelloWorld = HelloWorld >> >> mkYesod "HelloWorld" [parseRoutes| >> / HomeR GET >> |] >> >> instance Yesod HelloWorld where >> approot _ = "" >> >> getHomeR = defaultLayout [hamlet|Hello World!|] >> >> withHelloWorld f = toWaiApp HelloWorld >>= f >> >> main = warpDebug 3000 HelloWorld >> >> >> >> >> 2011/5/4 Amitava Shee <amitava.shee(a)gmail.com> >> >>> I am reading the yesod book - http://www.yesodweb.com/book/basics >>> >>> Can someone help me resolve the following issue? >>> >>> amitava$ wai-handler-devel 3000 HelloWorld withHelloWorld >>> Attempting to interpret your app... >>> Compile failed: >>> >>> Could not find module `Yesod': >>> Use -v to see a list of the files searched for. >>> >>> Furthermore, the -v option is not recognized by wai-handler-dev. I am >>> assuming this is a message from the underlying compiler. How do I pass >>> compiler/interpreter flags from wai-devel-handler? >>> >>> Thanks & Regards, >>> Amitava Shee >>> >>> There are two ways of constructing a software design. One is to make it >>> so simple that there are obviously no deficiencies; the other is to make it >>> so complicated that there are no obvious deficiencies. The first method is >>> far more difficult. >>> -- C. A. R. Hoare The Emperor's Old Clothes, CACM February 1981 >>> >>> _______________________________________________ >>> web-devel mailing list >>> web-devel(a)haskell.org >>> http://www.haskell.org/mailman/listinfo/web-devel >>> >>> >> > > > -- > Amitava Shee > Software Architect > > > There are two ways of constructing a software design. One is to make it so > simple that there are obviously no deficiencies; the other is to make it so > complicated that there are no obvious deficiencies. The first method is far > more difficult. > -- C. A. R. Hoare The Emperor's Old Clothes, CACM February 1981 > -- Amitava Shee Software Architect There are two ways of constructing a software design. One is to make it so simple that there are obviously no deficiencies; the other is to make it so complicated that there are no obvious deficiencies. The first method is far more difficult. -- C. A. R. Hoare The Emperor's Old Clothes, CACM February 1981

1 0

wai-handler-dev not finding Yesod
by Amitava Shee 04 May '11

04 May '11

I am reading the yesod book - http://www.yesodweb.com/book/basics Can someone help me resolve the following issue? amitava$ wai-handler-devel 3000 HelloWorld withHelloWorld Attempting to interpret your app... Compile failed: Could not find module `Yesod': Use -v to see a list of the files searched for. Furthermore, the -v option is not recognized by wai-handler-dev. I am assuming this is a message from the underlying compiler. How do I pass compiler/interpreter flags from wai-devel-handler? Thanks & Regards, Amitava Shee There are two ways of constructing a software design. One is to make it so simple that there are obviously no deficiencies; the other is to make it so complicated that there are no obvious deficiencies. The first method is far more difficult. -- C. A. R. Hoare The Emperor's Old Clothes, CACM February 1981

1 0

widgets vs hamlet was Re: on the necessity of extractBody
by Max Cantor 04 May '11

04 May '11

oops, forgot to reply to all ---------------------------- addWidget doesn't work. when I replace addHamlet with addWidget and ^{form} with ^{formW} I get the errors below. Its not that I'm that bothered by having to write extractBody, but since you say I dont have to I feel like this means I'm doing something. Again, I feel like I can get widgets and hamlet and html to work, but I feel like I'm hacking it and dont really understand whats going on. when you say polymorphic hamlet is going away, what will replace it? everything is a widget then? S4M/Server/Handler/Admin.hs:49:11: No instance for (Eq (Route master0)) arising from a use of `widgetToPageContent' Possible fix: add an instance declaration for (Eq (Route master0)) In the expression: widgetToPageContent In a stmt of a 'do' expression: pc <- widgetToPageContent $ do { addWidget ($(Settings.hamletFile "admin/purch-dtl")) } In a stmt of a 'do' expression: (_, formW, et, nonce) <- runFormPost (purchFormlet purch ocrRefs) S4M/Server/Handler/Admin.hs:51:19: The lambda expression `\ render[aCFb] -> hamlet-0.8.0:Text.Hamlet.Debug.unsafeRenderTemplate "hamlet/admin/purch-dtl.hamlet" ... render[aCFb]' has one argument, but its type `GGWidget master0 (GHandler sub0 master0) ()' has none In the expression: \ render[aCFb] -> hamlet-0.8.0:Text.Hamlet.Debug.unsafeRenderTemplate "hamlet/admin/purch-dtl.hamlet" [(["mPsiPkv"], Text.Hamlet.RT.HDMaybe (fmap (\ _var[aCFc] -> ...) mPsiPkv)), (["act"], Text.Hamlet.RT.HDUrl act), ....] render[aCFb] In the result of the splice: $(Settings.hamletFile "admin/purch-dtl") To see what the splice expanded to, use -ddump-splices In the first argument of `addWidget', namely `$(Settings.hamletFile "admin/purch-dtl")' S4M/Server/Handler/Admin.hs:51:19: The lambda expression `\ render[aCKe] -> hamlet-0.8.0:Text.Hamlet.Debug.unsafeRenderTemplate "hamlet/admin/purch-dtl.hamlet" ... render[aCKe]' has one argument, but its type `GGWidget master0 (GHandler sub0 master0) ()' has none In the expression: \ render[aCKe] -> hamlet-0.8.0:Text.Hamlet.Debug.unsafeRenderTemplate "hamlet/admin/purch-dtl.hamlet" [(["mPsiPkv"], Text.Hamlet.RT.HDMaybe (fmap (\ _var[aCKf] -> ...) mPsiPkv)), (["act"], Text.Hamlet.RT.HDUrl act), ....] render[aCKe] In the result of the splice: $(Settings.hamletFile "admin/purch-dtl") To see what the splice expanded to, use -ddump-splices In the first argument of `addWidget', namely `$(Settings.hamletFile "admin/purch-dtl")' On May 4, 2011, at 1:15 PM, Michael Snoyman wrote: > Firstly, polymorphic Hamlet is going the way of the do-do. (Sorry > everyone, the train ride worked out differently than expected, so the > blog post explaining this isn't ready yet.) So going forward these > things should be less of a problem. > > I think the reason you're running into trouble is the use of > "addHamlet"; try replacing it with "addWidget" and see what happens. > > On Tue, May 3, 2011 at 4:33 PM, Max Cantor <mxcantor(a)gmail.com> wrote: >> I've heard that its unnecessary, but I can't seem to get out it of my code. for instance, here is a simple route which should return a small HTML snippet for AJAX requests: >> >> getAdmPurchDetailRh :: EncPurchId -> Handler RepHtml >> getAdmPurchDetailRh epid = withEncPersistKey epid $ \(purchId, purch) -> do >> -- purchImgData <- runDB $ selectList [] [] 50 offset >> -- _TODO this will be done FOR EACH Purchase. need to cache the OcrRefs >> ocrRefs <- map snd <$> runDB ( selectList [] [] 50 0) >> mPsiPkv <- runDB (getBy $ PurchImgUnq purchId True) >> (_, formW, et, nonce) <- runFormPost (purchFormlet purch ocrRefs) >> let act = AdminRb >> pc <- widgetToPageContent $ do >> form <- extractBody formW >> addHamlet $(Settings.hamletFile "admin/purch-dtl") >> hamletToRepHtml [$hamlet|\^{pageBody pc}|] >> >> and the hamlet file: >> >> <div> >> $maybe psiPkv <- mPsiPkv >> <img src=@{getPurchImgRoute psiPkv}> >> $nothing >> <span .missingRecptImage> >> missing image >> <form action=@{act} enctype=#{et}> >> #{nonce} >> ^{form} >> <input type=submit> >> >> if I drop the extractBody formW call and replace ^{form} with ^{formW} it fails to compile. >> >> also, is there a way to get rid of the widgetToPageContent call and then extracting it with pageBody pc? hamletToRepHtml fails when the hamlet references any widgets it seems. >> >> sidenote, i understand that there is alot of polymorphism going on here but I'm still not exactly clear on what i "should" be doing in terms of hamlet, widgets, snippets etc. any style hints are appreciated. >> >> max >> >> >> _______________________________________________ >> web-devel mailing list >> web-devel(a)haskell.org >> http://www.haskell.org/mailman/listinfo/web-devel >>

1 0

on the necessity of extractBody
by Max Cantor 04 May '11

04 May '11

I've heard that its unnecessary, but I can't seem to get out it of my code. for instance, here is a simple route which should return a small HTML snippet for AJAX requests: getAdmPurchDetailRh :: EncPurchId -> Handler RepHtml getAdmPurchDetailRh epid = withEncPersistKey epid $ \(purchId, purch) -> do -- purchImgData <- runDB $ selectList [] [] 50 offset -- _TODO this will be done FOR EACH Purchase. need to cache the OcrRefs ocrRefs <- map snd <$> runDB ( selectList [] [] 50 0) mPsiPkv <- runDB (getBy $ PurchImgUnq purchId True) (_, formW, et, nonce) <- runFormPost (purchFormlet purch ocrRefs) let act = AdminRb pc <- widgetToPageContent $ do form <- extractBody formW addHamlet $(Settings.hamletFile "admin/purch-dtl") hamletToRepHtml [$hamlet|\^{pageBody pc}|] and the hamlet file: <div> $maybe psiPkv <- mPsiPkv <img src=@{getPurchImgRoute psiPkv}> $nothing <span .missingRecptImage> missing image <form action=@{act} enctype=#{et}> #{nonce} ^{form} <input type=submit> if I drop the extractBody formW call and replace ^{form} with ^{formW} it fails to compile. also, is there a way to get rid of the widgetToPageContent call and then extracting it with pageBody pc? hamletToRepHtml fails when the hamlet references any widgets it seems. sidenote, i understand that there is alot of polymorphism going on here but I'm still not exactly clear on what i "should" be doing in terms of hamlet, widgets, snippets etc. any style hints are appreciated. max

2 1

Odd "Ambiguous type variable `a0' in the constraint:" error (with Yesod)
by Mathew de Detrich 02 May '11

02 May '11

Ok so I have a problem that was described here ( http://permalink.gmane.org/gmane.comp.lang.haskell.web/1431) in regards to returning a "Ambiguous type variable `a0' in the constraint error" when compiling. Originally I thought it was due to the way I was coding that part of the code (or to be more accurate the code specifically for creating the so called widgets with addHTML/addWidget,addHamlet). So I copied the example code given here exactly (http://www.yesodweb.com/book/example-widgets) Compiling this worked fine, so at the next point I changed the definition of getRootR to getRootR = defaultLayout $ wrapper $ do setTitle "Polymorphic Hamlet" addHtml [$hamlet|<p>I was added with addHtml|] addHamlet [$hamlet|<p>I was added with addHamlet|] addWidget [$hamlet|<p>I was added with addWidget|] and then to getRootR = defaultLayout $ do setTitle "Polymorphic Hamlet" addHtml [$hamlet|<p>I was added with addHtml|] addHamlet [$hamlet|<p>I was added with addHamlet|] addWidget [$hamlet|<p>I was added with addWidget|] Both times compiled fine, so the issue wasn't what I originally thought that it was (as described in http://permalink.gmane.org/gmane.comp.lang.haskell.web/1431) The problem is, that when I use the above example code in my WebServer, I get this Ambigious type error when compiling (even though I have set up the route the exact same way). Unfortunatley I can't provide the code for my webserver, since its commercially owned (and it would be pointless because its just renamed variables, but otherwise its the same), so does anyone have any ideas what could possibly cause such an error (such as a missing/extra import or some package or something), or possibly some missing instances? Also sorry for creating another mailing list, but its a different issue then what I thought it was originally (and I also wanted to put it on haskell-cafe since its a more general issue)

2 8