git.iko.soy/servant
on master help sign in
Switched again to Text because it made more sense given the dependency structure
commit8aa5ce504eb6266607982a600443a88417fc8a3a authorGeoffrey Roberts <groberts@anchor.net.au> dateThu 22 Jan 2015, 11:33 (12 years ago) parent21e9c9f
2 files changed+6−4
compare with master
unifiedsplit
servant-jquery.cabal+1−1 src/Servant/JQuery/Internal.hs+5−3
servant-jquery.cabal+1−1
@@ -35,7 +35,7 @@ library
3535 , charset
3636 , lens >= 4
3737 , servant >= 0.2.1
38− , split
38+ , text
3939 hs-source-dirs: src
4040 default-language: Haskell2010
4141 ghc-options: -Wall
src/Servant/JQuery/Internal.hs+5−3
@@ -12,9 +12,9 @@ import Data.Char (toLower)
1212import qualified Data.CharSet as Set
1313import qualified Data.CharSet.Unicode.Category as Set
1414import Data.List
15−import Data.List.Split
1615import Data.Monoid
1716import Data.Proxy
17+import qualified Data.Text as T
1818import GHC.TypeLits
1919import Servant.API
2020
@@ -77,8 +77,10 @@ instance Show HeaderArg where
7777 pv = toValidFunctionName ("header" <> n)
7878 pn = "{" <> n <> "}"
7979 rp = replace pn "" p
80− -- Nicked from Data.String.Utils, works on lists
81− replace old new l = intercalate new . splitOn old $ l
80+ -- Use replace method from Data.Text
81+ replace old new = T.unpack .
82+ T.replace (T.pack old) (T.pack new) .
83+ T.pack
8284
8385-- | Attempts to reduce the function name provided to that allowed by JS.
8486-- https://mathiasbynens.be/notes/javascript-identifiers