git.iko.soy/jsaddle
on master help sign in
HLint suggestions
commit19248bc7d54a9969509f863fbcdc0727e160e4c9 authorHamish Mackenzie <Hamish.K.Mackenzie@googlemail.com> dateMon 10 Mar 2014, 05:31 (13 years ago) parent1c62211
4 files changed+16−26
compare with master
unifiedsplit
src/Language/Javascript/JSaddle.hs+10−20 src/Language/Javascript/JSaddle/Exception.hs+1−1 src/Language/Javascript/JSaddle/Monad.hs+1−1 src/Language/Javascript/JSaddle/Object.hs+4−4
src/Language/Javascript/JSaddle.hs+10−20
@@ -55,27 +55,17 @@ module Language.Javascript.JSaddle (
5555 -- will be replaced with JavaScript function calls.
5656
5757 -- * Modules
58− module Language.Javascript.JSaddle.Monad
59− , module Language.Javascript.JSaddle.Exception
60− , module Language.Javascript.JSaddle.Value
61− , module Language.Javascript.JSaddle.Arguments
62− , module Language.Javascript.JSaddle.Properties
63− , module Language.Javascript.JSaddle.Object
64− , module Language.Javascript.JSaddle.Evaluate
65−#ifdef MIN_VERSION_jmacro
66− , module Language.Javascript.JSaddle.JMacro
67−#endif
68− , module Language.Javascript.JSaddle.String
58+ module JSaddle
6959) where
7060
71−import Language.Javascript.JSaddle.Monad
72−import Language.Javascript.JSaddle.Exception
73−import Language.Javascript.JSaddle.Value
74−import Language.Javascript.JSaddle.Arguments
75−import Language.Javascript.JSaddle.Properties
76−import Language.Javascript.JSaddle.Object
77−import Language.Javascript.JSaddle.Evaluate
61+import Language.Javascript.JSaddle.Monad as JSaddle
62+import Language.Javascript.JSaddle.Exception as JSaddle
63+import Language.Javascript.JSaddle.Value as JSaddle
64+import Language.Javascript.JSaddle.Arguments as JSaddle
65+import Language.Javascript.JSaddle.Properties as JSaddle
66+import Language.Javascript.JSaddle.Object as JSaddle
67+import Language.Javascript.JSaddle.Evaluate as JSaddle
7868#ifdef MIN_VERSION_jmacro
79−import Language.Javascript.JSaddle.JMacro
69+import Language.Javascript.JSaddle.JMacro as JSaddle
8070#endif
81−import Language.Javascript.JSaddle.String
71+import Language.Javascript.JSaddle.String as JSaddle
src/Language/Javascript/JSaddle/Exception.hs+1−1
@@ -30,6 +30,6 @@ instance E.Exception JSException
3030
3131-- | Catch JavaScript exceptions and rethrow Haskell ones
3232rethrow :: (JSValueRefRef -> JSM a) -> JSM a
33−rethrow f = f `catchval` \e -> do
33+rethrow f = f `catchval` \e ->
3434 liftIO . E.throwIO $ JSException e
3535
src/Language/Javascript/JSaddle/Monad.hs+1−1
@@ -70,7 +70,7 @@ t `catch` c = do
7070catchval :: (JSValueRefRef -> JSM a) -> (JSValueRef -> JSM a) -> JSM a
7171catchval f catcher = do
7272#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
73− pexc <- liftIO $ newArray
73+ pexc <- liftIO newArray
7474 result <- f pexc
7575 exc <- liftIO $ indexArray 0 pexc
7676 if isUndefined exc || isNull exc
src/Language/Javascript/JSaddle/Object.hs+4−4
@@ -362,17 +362,17 @@ function = undefined
362362-- a name.
363363instance MakeValueRef JSCallAsFunction where
364364#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
365− makeValueRef = function (nullRef::JSStringRef)
365+ makeValueRef = function (nullRef:: JSStringRef)
366366#else
367− makeValueRef = function (nullPtr::JSStringRef)
367+ makeValueRef = function (nullPtr:: JSStringRef)
368368#endif
369369
370370instance MakeArgRefs JSCallAsFunction where
371371 makeArgRefs f = do
372372#if (defined(ghcjs_HOST_OS) && defined(USE_JAVASCRIPTFFI)) || !defined(USE_WEBKIT)
373− rarg <- function (nullRef::JSStringRef) f
373+ rarg <- function (nullRef:: JSStringRef) f
374374#else
375− rarg <- function (nullPtr::JSStringRef) f
375+ rarg <- function (nullPtr:: JSStringRef) f
376376#endif
377377 return [rarg]
378378