summaryrefslogtreecommitdiff
path: root/tests/purs/passing/3595.purs
blob: f5c7941535b31cf2c438f460994a54b91fa7d68d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
module Main where

import Prelude as P
import Effect (Effect)
import Effect.Console (log)

class P.Show a <= Show a where
  id :: a -> a

instance showString :: Show String where
  id x = x

main :: Effect P.Unit
main = log (id "Done")