Fire server events on new urls, change approot, git ignore, and stack…

… yaml (the latter to support detaching the docker container

.gitignore

@@ -9,6 +9,7 @@ config/client_session_key.aes
 cabal-dev/
 yesod-devel/
 .cabal-sandbox
+.stack-work/
 cabal.sandbox.config
 .DS_Store
 *.swp

Handler/Home.hs

@@ -54,7 +54,11 @@ postHomeR = do
             ($) runDB $ do
                 urlId <- insert url
                 _ <- insert $ Vote urlId ipp
-                return ()
+                urls <- selectList [] [Desc UrlVotetotal]
+                votes <- selectList [VoteIp ==. ipp] [Asc VoteUrlId]
+                chan <- appChannel <$> getYesod
+                let json = object [ "urls" .= jsonUrls urls (map entityVal votes) ]
+                liftIO $ writeChan chan $ ServerEvent Nothing Nothing $ return $ lazyByteString $ encode json
             redirect HomeR
         _               -> return ()
     redirect HomeR

config/settings.yml

@@ -4,7 +4,7 @@
 static-dir:     "_env:STATIC_DIR:static"
 host:           "_env:HOST:*4" # any IPv4 host
 port:           "_env:PORT:3000"
-approot:        "_env:APPROOT:http://localhost:3000"
+approot:        "_env:APPROOT:http://dev.sym.bio:3000"
 ip-from-header: "_env:IP_FROM_HEADER:false"
 
 # Optional values with the following production defaults.

stack.yaml

@@ -11,3 +11,4 @@ extra-deps: []
 resolver: lts-2.14
 docker:
     enable: true
+    detach: true