Warnings about migration.
This commit is contained in:
		
							parent
							
								
									e9550ed8ee
								
							
						
					
					
						commit
						4f25167ab0
					
				
					 2 changed files with 15 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -282,6 +282,7 @@ render state
 | 
			
		|||
    , render_nav
 | 
			
		||||
    , reconnection_bar
 | 
			
		||||
    , render_notifications
 | 
			
		||||
    , migration_warning
 | 
			
		||||
    , migration_warning_on_email_address
 | 
			
		||||
    , case state.current_page of
 | 
			
		||||
        Home           -> render_home
 | 
			
		||||
| 
						 | 
				
			
			@ -310,6 +311,19 @@ render state
 | 
			
		|||
    paypal_btn :: forall w i. HH.HTML w i
 | 
			
		||||
    paypal_btn = HH.div [ HP.ref ref_paypal_div ] []
 | 
			
		||||
 | 
			
		||||
    migration_warning :: forall w. HH.HTML w Action
 | 
			
		||||
    migration_warning =
 | 
			
		||||
          HH.div [HP.classes [C.notification, C.is_warning]]
 | 
			
		||||
            [ Bulma.p """
 | 
			
		||||
               ⚠️  MIGRATION EN COURS (FR): la migration est en cours et nous faisons notre possible pour avoir un service en étant de fonctionnement le plus rapidement possible.
 | 
			
		||||
               Merci de garder patience. :)
 | 
			
		||||
              """
 | 
			
		||||
            , Bulma.p """
 | 
			
		||||
               ⚠️  ONGOING MIGRATION (EN): please note that the migration is still on-going.
 | 
			
		||||
               Bugs and server reboot can happen anytime.
 | 
			
		||||
              """
 | 
			
		||||
            ]
 | 
			
		||||
 | 
			
		||||
    migration_warning_on_email_address :: forall w. HH.HTML w Action
 | 
			
		||||
    migration_warning_on_email_address =
 | 
			
		||||
      case state.user_data of
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -52,7 +52,7 @@ render _ = HH.div_
 | 
			
		|||
                 afin de purger un certain nombre de vieux comptes de robots.
 | 
			
		||||
                 """
 | 
			
		||||
                 , HH.p [ HP.classes [C.margin_top 3] ]
 | 
			
		||||
                   [ Bulma.outside_link [C.button, C.is_info] url_linuxfr "Cliquez ici pour en savoir plus." ]
 | 
			
		||||
                   [ Bulma.outside_link [C.button, C.is_info] url_linuxfr "(LIEN BIENTÔT DISPONIBLE, l'article n'est pas encore publié)." ]
 | 
			
		||||
                 ]
 | 
			
		||||
             , Bulma.section_small
 | 
			
		||||
                 [ Bulma.h1 "Welcome to netlib.re"
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		
		Reference in a new issue