Update TextInput.V6 upgrade script

elm-refactor/v8-to-v9/TextInputV6.elm

@@ -1,9 +1,186 @@
-module Main exposing (upgrade_Nri_Ui_TextInput_V5_view)
+module Main exposing (..)
+
+{-| NOTE: requires elm-refactor alpha-220-g24db2f5 or later.
+-}
 
-import ElmFix
 import Nri.Ui.TextInput.V6 as TextInput
 
 
+
+--
+-- Nri.Ui.TextInput.V3 to V6
+--
+
+
+upgrade_Nri_Ui_TextInput_V3_view config =
+    TextInput.view
+        config.label
+        (config.type_ config.onInput)
+        (List.filterMap identity
+            [ case config.isInError of
+                False ->
+                    Nothing
+
+                _ ->
+                    Just (TextInput.errorIf config.isInError)
+            , if config.placeholder == config.label then
+                Nothing
+
+              else
+                Just (TextInput.placeholder config.placeholder)
+            , if config.autofocus then
+                Just TextInput.autofocus
+
+              else
+                Nothing
+            , if config.showLabel then
+                Nothing
+
+              else
+                Just TextInput.hiddenLabel
+            ]
+        )
+        config.value
+
+
+upgrade_Nri_Ui_TextInput_V3_writing config =
+    TextInput.view
+        config.label
+        (config.type_ config.onInput)
+        (List.filterMap identity
+            [ Just TextInput.writing
+            , Just (TextInput.errorIf config.isInError)
+            , if config.placeholder == config.label then
+                Nothing
+
+              else
+                Just (TextInput.placeholder config.placeholder)
+            , if config.autofocus then
+                Just TextInput.autofocus
+
+              else
+                Nothing
+            , if config.showLabel then
+                Nothing
+
+              else
+                Just TextInput.hiddenLabel
+            ]
+        )
+        config.value
+
+
+upgrade_Nri_Ui_TextInput_V3_number =
+    TextInput.number
+
+
+upgrade_Nri_Ui_TextInput_V3_text =
+    TextInput.text
+
+
+
+--
+-- Nri.Ui.TextInput.V4 to V6
+--
+
+
+upgrade_Nri_Ui_TextInput_V4_view config =
+    TextInput.view
+        config.label
+        (config.type_ config.onInput)
+        (List.filterMap identity
+            [ case config.isInError of
+                False ->
+                    Nothing
+
+                _ ->
+                    Just (TextInput.errorIf config.isInError)
+            , case config.onBlur of
+                Nothing ->
+                    Nothing
+
+                Just onBlur ->
+                    Just (TextInput.onBlur onBlur)
+            , if config.placeholder == config.label then
+                Nothing
+
+              else
+                Just (TextInput.placeholder config.placeholder)
+            , case config.autofocus of
+                False ->
+                    Nothing
+
+                True ->
+                    Just TextInput.autofocus
+            , case config.showLabel of
+                True ->
+                    Nothing
+
+                False ->
+                    Just TextInput.hiddenLabel
+            ]
+        )
+        config.value
+
+
+upgrade_Nri_Ui_TextInput_V4_writing config =
+    TextInput.view
+        config.label
+        (config.type_ config.onInput)
+        (List.filterMap identity
+            [ Just TextInput.writing
+            , case config.isInError of
+                False ->
+                    Nothing
+
+                _ ->
+                    Just (TextInput.errorIf config.isInError)
+            , case config.onBlur of
+                Nothing ->
+                    Nothing
+
+                Just onBlur ->
+                    Just (TextInput.onBlur onBlur)
+            , if config.placeholder == config.label then
+                Nothing
+
+              else
+                Just (TextInput.placeholder config.placeholder)
+            , case config.autofocus of
+                False ->
+                    Nothing
+
+                True ->
+                    Just TextInput.autofocus
+            , case config.showLabel of
+                True ->
+                    Nothing
+
+                False ->
+                    Just TextInput.hiddenLabel
+            ]
+        )
+        config.value
+
+
+upgrade_Nri_Ui_TextInput_V4_generateId =
+    TextInput.generateId
+
+
+upgrade_Nri_Ui_TextInput_V4_number =
+    TextInput.number
+
+
+upgrade_Nri_Ui_TextInput_V4_text =
+    TextInput.text
+
+
+
+--
+-- Nri.Ui.TextInput.V5 to V6
+--
+
+
 upgrade_Nri_Ui_TextInput_V5_text =
     TextInput.text
 
@@ -27,73 +204,67 @@ upgrade_Nri_Ui_TextInput_V5_email =
 upgrade_Nri_Ui_TextInput_V5_view model =
     TextInput.view model.label
         (model.type_ model.onInput)
+        (List.filterMap identity
             [ case model.isInError of
                 False ->
-                ElmFix.remove
+                    Nothing
 
                 _ ->
-                TextInput.errorIf model.isInError
+                    Just (TextInput.errorIf model.isInError)
             , case model.showLabel of
                 True ->
-                ElmFix.remove
+                    Nothing
 
                 False ->
-                TextInput.hiddenLabel
+                    Just TextInput.hiddenLabel
             , if model.placeholder == model.label then
-            ElmFix.remove
+                Nothing
 
               else
-            TextInput.placeholder model.placeholder
+                Just (TextInput.placeholder model.placeholder)
-        , case model.onBlur of
+            , Maybe.map TextInput.onBlur model.onBlur
-            Nothing ->
-                ElmFix.remove
-
-            Just msg ->
-                TextInput.onBlur msg
             , case model.autofocus of
                 True ->
-                TextInput.autofocus
+                    Just TextInput.autofocus
 
                 False ->
-                ElmFix.remove
+                    Nothing
             ]
+        )
         model.value
 
 
 upgrade_Nri_Ui_TextInput_V5_writing model =
     TextInput.view model.label
         (model.type_ model.onInput)
-        [ TextInput.writing
+        (List.filterMap identity
+            [ Just TextInput.writing
             , case model.isInError of
                 False ->
-                ElmFix.remove
+                    Nothing
 
                 _ ->
-                TextInput.errorIf model.isInError
+                    Just (TextInput.errorIf model.isInError)
             , case model.showLabel of
                 True ->
-                ElmFix.remove
+                    Nothing
 
                 False ->
-                TextInput.hiddenLabel
+                    Just TextInput.hiddenLabel
             , if model.placeholder == model.label then
-            ElmFix.remove
+                Nothing
 
               else
-            TextInput.placeholder model.placeholder
+                Just (TextInput.placeholder model.placeholder)
-        , case model.onBlur of
+            , Maybe.map TextInput.onBlur model.onBlur
-            Nothing ->
-                ElmFix.remove
-
-            Just msg ->
-                TextInput.onBlur msg
             , case model.autofocus of
                 True ->
-                TextInput.autofocus
+                    Just TextInput.autofocus
 
                 False ->
-                ElmFix.remove
+                    Nothing
             ]
+        )
         model.value