Minimal YesodPureScript sample

Author: mpietrzak

Application.hs

@@ -21,6 +21,7 @@ import Network.Wai.Middleware.RequestLogger (Destination (Logger),
                                              mkRequestLogger, outputFormat)
 import System.Log.FastLogger                (defaultBufSize, newStdoutLoggerSet,
                                              toLogStr)
+import Yesod.PureScript                     (createYesodPureScriptSite)
 
 -- Import all relevant handler modules here.
 -- Don't forget to add new modules to your cabal file!
@@ -46,6 +47,8 @@ makeFoundation appSettings = do
         (if appMutableStatic appSettings then staticDevel else static)
         (appStaticDir appSettings)
 
+    appPureScript <- createYesodPureScriptSite def
+
     -- We need a log function to create a connection pool. We need a connection
     -- pool to create our foundation. And we need our foundation to get a
     -- logging function. To get out of this loop, we initially create a

Foundation.hs

@@ -7,6 +7,7 @@ import Text.Jasmine         (minifym)
 import Yesod.Auth.BrowserId (authBrowserId)
 import Yesod.Default.Util   (addStaticContentExternal)
 import Yesod.Core.Types     (Logger)
+import Yesod.PureScript     (YesodPureScript, PureScriptSite)
 
 -- | The foundation datatype for your application. This can be a good place to
 -- keep settings and values requiring initialization before your application
@@ -18,6 +19,7 @@ data App = App
     , appConnPool    :: ConnectionPool -- ^ Database connection pool.
     , appHttpManager :: Manager
     , appLogger      :: Logger
+    , appPureScript  :: PureScriptSite
     }
 
 instance HasHttpManager App where
@@ -142,6 +144,8 @@ instance YesodAuthPersist App
 instance RenderMessage App FormMessage where
     renderMessage _ _ = defaultFormMessage
 
+instance YesodPureScript App
+
 -- Note: Some functionality previously present in the scaffolding has been
 -- moved to documentation in the Wiki. Following are some hopefully helpful
 -- links:

Handler/Home.hs

@@ -3,6 +3,7 @@ module Handler.Home where
 import Import
 import Yesod.Form.Bootstrap3 (BootstrapFormLayout (..), renderBootstrap3,
                               withSmallInput)
+import Yesod.PureScript (getPureScriptRoute)
 
 -- This is a handler function for the GET request method on the HomeR
 -- resource pattern. All of your resource patterns are defined in
@@ -19,6 +20,7 @@ getHomeR = do
     defaultLayout $ do
         aDomId <- newIdent
         setTitle "Welcome To Yesod!"
+        addScript $ PureScriptR $ getPureScriptRoute ["Hello"]
         $(widgetFile "homepage")
 
 postHomeR :: Handler Html
@@ -32,6 +34,7 @@ postHomeR = do
     defaultLayout $ do
         aDomId <- newIdent
         setTitle "Welcome To Yesod!"
+        addScript $ PureScriptR $ getPureScriptRoute ["Hello"]
         $(widgetFile "homepage")
 
 sampleForm :: Form (FileInfo, Text)

bower_components/empty.purs

@@ -0,0 +1 @@
+-- just to ensure bower_components directory exists

config/routes

@@ -1,5 +1,6 @@
 /static StaticR Static appStatic
 /auth   AuthR   Auth   getAuth
+/purs   PureScriptR PureScriptSite  appPureScript
 
 /favicon.ico FaviconR GET
 /robots.txt RobotsR GET

purs/Hello.purs

@@ -0,0 +1,14 @@
+
+module Hello (main)
+where
+
+import Control.Monad.Eff
+
+foreign import log
+"""function log(s) {
+    return function() {
+        return window.console.log(s);
+    };
+}""" :: forall eff. String -> Eff eff {}
+
+main = log "hello"

yesod-purescript-sample.cabal

@@ -51,6 +51,7 @@ library
                  , yesod-auth                    >= 1.4.0      && < 1.5
                  , yesod-static                  >= 1.4.0.3    && < 1.5
                  , yesod-form                    >= 1.4.0      && < 1.5
+                 , yesod-purescript              >= 0.0.4
                  , classy-prelude                >= 0.10.2
                  , classy-prelude-conduit        >= 0.10.2
                  , classy-prelude-yesod          >= 0.10.2