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.Generic.Rep.Show (genericShow)

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

instance showRoute :: Show Route where
  show = genericShow

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