Update unsafe components

* Have to use createElement with unsafeCoerce due to
  purescript-contrib/purescript-react#151
* Change createNoChild to use createLeafElement

Author: jvliwanag

src/ReactNative/Unsafe/Components.purs

@@ -35,7 +35,8 @@ module ReactNative.Unsafe.Components (
 , webViewU
 ) where
 
-import React (ReactClass, ReactElement, createElement)
+import React (Children, ReactClass, ReactElement, createElement, createLeafElement)
+import Unsafe.Coerce (unsafeCoerce)
 
 foreign import activityIndicatorClass        :: forall props. ReactClass props
 foreign import buttonClass                   :: forall props. ReactClass props
@@ -72,141 +73,152 @@ foreign import viewClass                     :: forall props. ReactClass props
 foreign import viewPagerAndroidClass         :: forall props. ReactClass props
 foreign import webViewClass                  :: forall props. ReactClass props
 
-createNoChild :: forall props. ReactClass props -> props -> ReactElement
-createNoChild c p = createElement c p []
-
 -- | Create a [Text](https://facebook.github.io/react-native/docs/text.html) component unsafely
 textU :: forall props. props -> Array ReactElement -> ReactElement
-textU = createElement textClass
+textU = createElementU textClass
 
 -- | Create a [View](https://facebook.github.io/react-native/docs/view.html) component unsafely
 viewU :: forall props. props -> Array ReactElement -> ReactElement
-viewU = createElement viewClass
+viewU = createElementU viewClass
 
 -- | Create a [SafeAreaView](https://facebook.github.io/react-native/docs/safeareaview.html) component unsafely
 safeAreaViewU :: forall props. props -> Array ReactElement -> ReactElement
-safeAreaViewU = createElement viewClass
+safeAreaViewU = createElementU viewClass
 
 -- | Create an [Image](https://facebook.github.io/react-native/docs/image.html) component unsafely
 imageU :: forall props. props -> Array ReactElement -> ReactElement
-imageU = createElement imageClass
+imageU = createElementU imageClass
 
 -- | Create a [ListView](https://facebook.github.io/react-native/docs/listview.html) component unsafely
 listViewU :: forall props. props -> ReactElement
-listViewU = createNoChild listViewClass
+listViewU = createLeafElementU listViewClass
 
 -- | Create a [ToolbarAndroid](https://facebook.github.io/react-native/docs/toolbarandroid.html) component unsafely
 toolbarAndroidU :: forall props. props -> Array ReactElement -> ReactElement
-toolbarAndroidU = createElement toolbarAndroidClass
+toolbarAndroidU = createElementU toolbarAndroidClass
 
 -- | Create an [ActivityIndicator](https://facebook.github.io/react-native/docs/activityindicator.html) component unsafely
 activityIndicatorU :: forall props. props -> ReactElement
-activityIndicatorU = createNoChild activityIndicatorClass
+activityIndicatorU = createLeafElementU activityIndicatorClass
 
 -- | Create a [TouchableNativeFeedback](https://facebook.github.io/react-native/docs/touchablenativefeedback.html) component unsafely
 touchableNativeFeedbackU :: forall props. props -> ReactElement -> ReactElement
-touchableNativeFeedbackU p c = createElement touchableNativeFeedbackClass p [c]
+touchableNativeFeedbackU p c = createElementU touchableNativeFeedbackClass p [c]
 
 -- | Create a [TouchableWithoutFeedback](https://facebook.github.io/react-native/docs/touchablewithoutfeedback.html) component unsafely
 touchableWithoutFeedbackU :: forall props. props -> ReactElement -> ReactElement
-touchableWithoutFeedbackU p c = createElement touchableWithoutFeedbackClass p [c]
+touchableWithoutFeedbackU p c = createElementU touchableWithoutFeedbackClass p [c]
 
 -- | Create a [TouchableHighlight](http://facebook.github.io/react-native/docs/touchablehighlight.html#touchablehighlight) component unsafely
 touchableHighlightU :: forall props. props -> ReactElement -> ReactElement
-touchableHighlightU p c = createElement touchableHighlightClass p [c]
+touchableHighlightU p c = createElementU touchableHighlightClass p [c]
 
 -- | Create a [TouchableOpacity](https://facebook.github.io/react-native/docs/touchableopacity.html) component unsafely
 touchableOpacityU :: forall props. props -> ReactElement -> ReactElement
-touchableOpacityU p c = createElement touchableOpacityClass p [c]
+touchableOpacityU p c = createElementU touchableOpacityClass p [c]
 
 -- | Create a [ScrollView](https://facebook.github.io/react-native/docs/scrollview.html) component unsafely
 scrollViewU :: forall props. props -> Array ReactElement -> ReactElement
-scrollViewU = createElement scrollViewClass
+scrollViewU = createElementU scrollViewClass
 
 -- | Create an [RefreshControl](https://facebook.github.io/react-native/docs/refreshcontrol.html) component unsafely
 refreshControlU :: forall props. props -> ReactElement
-refreshControlU = createNoChild refreshControlClass
+refreshControlU = createLeafElementU refreshControlClass
 
 -- | Create a [Switch](https://facebook.github.io/react-native/docs/switch.html) component unsafely
 switchU :: forall props. props -> ReactElement
-switchU = createNoChild switchClass
+switchU = createLeafElementU switchClass
 
 -- | Create a [DrawerLayoutAndroid](https://facebook.github.io/react-native/docs/drawerlayoutandroid.html) component unsafely
 drawerLayoutAndroidU :: forall props. props -> Array ReactElement -> ReactElement
-drawerLayoutAndroidU = createElement drawerLayoutAndroidClass
+drawerLayoutAndroidU = createElementU drawerLayoutAndroidClass
 
 -- | Create a [Button](https://facebook.github.io/react-native/docs/button.html) component unsafely
 buttonU :: forall props. props -> ReactElement
-buttonU = createNoChild buttonClass
+buttonU = createLeafElementU buttonClass
 
 -- | Create a [Picker](https://facebook.github.io/react-native/docs/picker.html) component unsafely
 pickerU :: forall props. props -> Array ReactElement -> ReactElement
-pickerU = createElement pickerClass
+pickerU = createElementU pickerClass
 
 -- | Create a [Picker.Item](https://facebook.github.io/react-native/docs/picker.html) component unsafely
 pickerItemU :: forall props. props -> ReactElement
-pickerItemU = createNoChild pickerItemClass
+pickerItemU = createLeafElementU pickerItemClass
 
 -- | Create a [Slider](https://facebook.github.io/react-native/docs/activityindicator.html) component unsafely
 sliderU :: forall props. props -> ReactElement
-sliderU = createNoChild sliderClass
+sliderU = createLeafElementU sliderClass
 
 -- | Create a [NavigatorIOS](https://facebook.github.io/react-native/docs/navigatorios.html) component unsafely
 navigatorIOSU :: forall props. props -> ReactElement
-navigatorIOSU = createNoChild navigatorIOSClass
+navigatorIOSU = createLeafElementU navigatorIOSClass
 
 -- | Create a [TextInput](https://facebook.github.io/react-native/docs/textinput.html) component unsafely
 textInputU :: forall props. props -> ReactElement
-textInputU = createNoChild textInputClass
+textInputU = createLeafElementU textInputClass
 
 -- | Create a [DatePickerIOS](https://facebook.github.io/react-native/docs/datepickerios.html) component unsafely
 datePickerIOSU :: forall props. props -> ReactElement
-datePickerIOSU = createNoChild datePickerIOSClass
+datePickerIOSU = createLeafElementU datePickerIOSClass
 
 -- | Create a [KeyboardAvoidingView](https://facebook.github.io/react-native/docs/keyboardavoidingview.html) component unsafely
 keyboardAvoidingViewU :: forall props. props -> Array ReactElement -> ReactElement
-keyboardAvoidingViewU = createElement keyboardAvoidingViewClass
+keyboardAvoidingViewU = createElementU keyboardAvoidingViewClass
 
 -- | Create a [MapView](https://facebook.github.io/react-native/docs/mapview.html) component unsafely
 mapViewU :: forall props. props -> Array ReactElement -> ReactElement
-mapViewU = createElement mapViewClass
+mapViewU = createElementU mapViewClass
 
 -- | Create a [Modal](https://facebook.github.io/react-native/docs/modal.html) component unsafely
 modalU :: forall props. props -> Array ReactElement -> ReactElement
-modalU = createElement modalClass
+modalU = createElementU modalClass
 
 -- | Create a [ProgressBarAndroid](https://facebook.github.io/react-native/docs/progressbarandroid.html) component unsafely
 progressBarAndroidU :: forall props. props -> ReactElement
-progressBarAndroidU = createNoChild progressBarAndroidClass
+progressBarAndroidU = createLeafElementU progressBarAndroidClass
 
 -- | Create a [ProgressViewIOS](https://facebook.github.io/react-native/docs/progressviewios.html) component unsafely
 progressViewIOSU :: forall props. props -> ReactElement
-progressViewIOSU = createNoChild progressViewIOSClass
+progressViewIOSU = createLeafElementU progressViewIOSClass
 
 -- | Create a [SegmentedControlIOS](https://facebook.github.io/react-native/docs/segmentedcontrolios.html) component unsafely
 segmentedControlIOSU :: forall props. props -> ReactElement
-segmentedControlIOSU = createNoChild segmentedControlIOSClass
+segmentedControlIOSU = createLeafElementU segmentedControlIOSClass
 
 -- | Create a [StatusBar](https://facebook.github.io/react-native/docs/statusbar.html) component unsafely
 statusBarU :: forall props. props -> ReactElement
-statusBarU = createNoChild statusBarClass
+statusBarU = createLeafElementU statusBarClass
 
 -- | Create a [SnapshotViewIOS](https://facebook.github.io/react-native/docs/snapshotviewios.html) component unsafely
 snapshotViewIOSU :: forall props. props -> ReactElement
-snapshotViewIOSU = createNoChild snapshotViewIOSClass
+snapshotViewIOSU = createLeafElementU snapshotViewIOSClass
 
 -- | Create a [TabBarIOS](https://facebook.github.io/react-native/docs/tabbarios.html) component unsafely
 tabBarIOSU :: forall props. props -> Array ReactElement -> ReactElement
-tabBarIOSU = createElement tabBarIOSClass
+tabBarIOSU = createElementU tabBarIOSClass
 
 -- | Create a [TabBarIOS.Item](https://facebook.github.io/react-native/docs/tabbarios-item.html) component unsafely
 tabBarIOSItemU :: forall props. props -> Array ReactElement -> ReactElement
-tabBarIOSItemU = createElement tabBarIOSItemClass
+tabBarIOSItemU = createElementU tabBarIOSItemClass
 
 -- | Create a [ViewPagerAndroid](https://facebook.github.io/react-native/docs/viewpagerandroid.html) component unsafely
 viewPagerAndroidU :: forall props. props -> Array ReactElement -> ReactElement
-viewPagerAndroidU = createElement viewPagerAndroidClass
+viewPagerAndroidU = createElementU viewPagerAndroidClass
 
 -- | Create a [WebView](https://facebook.github.io/react-native/docs/webview.html) component unsafely
 webViewU :: forall props. props -> ReactElement
-webViewU = createNoChild webViewClass
+webViewU = createLeafElementU webViewClass
+
+-- Unsafe createElement
+
+createElementU :: forall props. ReactClass props -> props -> Array ReactElement -> ReactElement
+createElementU c p =
+  createElement
+  (unsafeCoerce c :: ReactClass { children :: Children })
+  (unsafeCoerce p :: {})
+
+createLeafElementU :: forall props. ReactClass props -> props -> ReactElement
+createLeafElementU c p =
+  createLeafElement
+  (unsafeCoerce c :: ReactClass {})
+  (unsafeCoerce p :: {})