git.iko.soy/typeable/servant
on master help sign in
Modifying T9.hs accordingly with new js gen
294143aFreezeboy
servant-examples/tutorial/T9.hs+2−1
compare with master
unifiedsplit
@@ -13,6 +13,7 @@ import GHC.Generics
13import Network.Wai
13import Network.Wai
14import Servant
14import Servant
15import Servant.JQuery
15import Servant.JQuery
16+import Servant.JQuery.JQuery
16import System.Random
17import System.Random
17
18
18import qualified Data.Text as T
19import qualified Data.Text as T
@@ -92,7 +93,7 @@ server' = server
92 :<|> serveDirectory "tutorial/t9"
93 :<|> serveDirectory "tutorial/t9"
93
94
94apiJS :: String
95apiJS :: String
95−apiJS = jsForAPI api
96+apiJS = jsForAPI api generateJQueryJS
96
97
97writeJSFiles :: IO ()
98writeJSFiles :: IO ()
98writeJSFiles = do
99writeJSFiles = do