Published with try.purescript.org

Main.purs

module Main where

import TryPureScript (p, text, render)

import Prelude

import Data.Generic.Rep (class Generic)
import Data.Show.Generic (genericShow)

data Route = Home | Users String | User Int | NotFound String
derive instance genericRoute :: Generic Route _

instance showRoute :: Show Route where
  show (Users u) = "CusomUsersShow " <> u
  show r = genericShow r

main = render (p (text (show (User 8))))