Merge pull request #3 from haskell-servant/jkarni/issue1

Fix dot in function name issue.

servant-jquery.cabal

@@ -37,7 +37,7 @@ executable counter
   main-is: counter.hs
   ghc-options: -O2 -Wall
   hs-source-dirs: examples
-  
+
   if flag(example)
     buildable: True
   else
@@ -54,3 +54,16 @@ executable counter
     , transformers
     , warp
   default-language: Haskell2010
+
+test-suite spec
+  type:              exitcode-stdio-1.0
+  hs-source-dirs:    test
+  ghc-options:       -Wall
+  main-is:           Spec.hs
+  build-depends:
+      base == 4.*
+    , servant-jquery
+    , servant
+    , hspec >= 2.0
+    , language-ecmascript == 0.16.*
+  default-language: Haskell2010

src/Servant/JQuery/Internal.hs

@@ -214,4 +214,4 @@ instance (KnownSymbol path, HasJQ sublayout)
       req & reqUrl.path <>~ [Static str]
           & funcName %~ (str <>)
 
-    where str = symbolVal (Proxy :: Proxy path)
+    where str = map (\c -> if c == '.' then '_' else c) $ symbolVal (Proxy :: Proxy path)

test/Servant/JQuerySpec.hs

@@ -0,0 +1,29 @@
+{-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE QuasiQuotes #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+module Servant.JQuerySpec where
+
+import Data.Either (isRight)
+import Data.Proxy
+import Language.ECMAScript3.Parser (parseFromString)
+import Test.Hspec
+
+import Servant.API
+import Servant.JQuery
+
+type TestAPI = [sitemap|
+POST    /simple                  String -> Bool
+GET     /has.extension           Bool
+|]
+
+spec :: Spec
+spec = describe "Servant.JQuery"
+    generateJSSpec
+
+generateJSSpec :: Spec
+generateJSSpec = describe "generateJS" $
+    it "should always generate valid javascript" $ do
+        let (postSimple :<|> getHasExtension) = jquery (Proxy :: Proxy TestAPI)
+        parseFromString (generateJS postSimple) `shouldSatisfy` isRight
+        parseFromString (generateJS getHasExtension) `shouldSatisfy` isRight
+

test/Spec.hs

@@ -0,0 +1,2 @@
+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}
+