eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Modifying T9.hs accordingly with new js gen

Browse source 
Simply import JQuery generators
And change the jsForAPI call
This commit is contained in:
Freezeboy 2015-07-18 00:11:44 +02:00 committed by Alp Mestanogullari
parent f9de958fda
commit 294143af1d
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
servant-examples/tutorial/T9.hs
View file

@ -13,6 +13,7 @@ import GHC.Generics
import Network.Wai import Network.Wai
import Servant import Servant
import Servant.JQuery import Servant.JQuery
import Servant.JQuery.JQuery
import System.Random import System.Random
import qualified Data.Text as T import qualified Data.Text as T
@ -92,7 +93,7 @@ server' = server
:<|> serveDirectory "tutorial/t9" :<|> serveDirectory "tutorial/t9"
apiJS :: String apiJS :: String
apiJS = jsForAPI api apiJS = jsForAPI api generateJQueryJS
writeJSFiles :: IO () writeJSFiles :: IO ()
writeJSFiles = do writeJSFiles = do