aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-12-23 21:02:13 +03:00
Code Issues Projects Releases Wiki Activity

Importing NeatInterpolation qualified breaks haskell-mode

Browse Source
This commit is contained in:
Artyom 2017-05-13 03:44:06 +03:00
parent 2187096d7b
commit 2b97fb853d
No known key found for this signature in database
GPG Key ID: B8E35A33FF522710
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Guide/Server.hs
View File

@ -28,7 +28,7 @@ import qualified Data.Map as M
import Control.Monad.Morph import Control.Monad.Morph
-- Text -- Text
import qualified Data.Text.All as T import qualified Data.Text.All as T
import qualified NeatInterpolation as Neat import NeatInterpolation (text)
-- Web -- Web
import Web.Spock hiding (head, get, text) import Web.Spock hiding (head, get, text)
import qualified Web.Spock as Spock import qualified Web.Spock as Spock
@ -223,7 +223,7 @@ guideApp waiMetrics = prehook initHook $ do
Spock.get "/js.js" $ do Spock.get "/js.js" $ do
setHeader "Content-Type" "application/javascript; charset=utf-8" setHeader "Content-Type" "application/javascript; charset=utf-8"
(csrfTokenName, csrfTokenValue) <- getCsrfHeader (csrfTokenName, csrfTokenValue) <- getCsrfHeader
let jqueryCsrfProtection = [Neat.text| let jqueryCsrfProtection = [text|
guidejs.csrfProtection.enable("$csrfTokenName", "$csrfTokenValue"); guidejs.csrfProtection.enable("$csrfTokenName", "$csrfTokenValue");
|] |]
js <- getJS js <- getJS