@@ -130,13 +130,13 @@ fromJSBoolMaybe :: JSContextRef -> JSValueRef -> IO (Maybe Bool)
130130fromJSBoolMaybe c t = do
131131 isBool <- jsvalueisboolean c t
132132 if not isBool then return Nothing else
133− fmap Just $ jsvaluetoboolean c t
133+ Just <$> jsvaluetoboolean c t
134134
135135fromJSNumMaybe :: JSContextRef -> JSValueRef -> IO (Maybe Double)
136136fromJSNumMaybe c t = do
137137 isNum <- jsvalueisnumber c t
138138 if not isNum then return Nothing else
139− fmap Just $ jsvaluetonumber c t nullPtr
139+ Just <$> jsvaluetonumber c t nullPtr
140140
141141getLocationHost :: WebView -> IO Text
142142getLocationHost wv = withWebViewContext wv $ \c -> do