fork download

data Foo = Foo { bar :: String, baz :: Int }
 
main :: IO ()
main = do
	putStrLn $ fooToString exampleFoo
	putStrLn $ safeFooToString exampleFoo
 
fooToString :: Foo -> String
fooToString foo =
	case foo of
		Foo { bar = bar } ->
			bar
 
safeFooToString :: Foo -> String
safeFooToString foo =
	case foo of
		Foo bar ->
			bar
 
exampleFoo :: Foo
exampleFoo =
	Foo
		{ bar = "Bar"
		, baz = 25
		}

[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:17:17: error:
    • The constructor ‘Foo’ should have 2 arguments, but has been given 1
    • In the pattern: Foo bar
      In a case alternative: Foo bar -> bar
      In the expression: case foo of { Foo bar -> bar }
   |
17 |                 Foo bar ->
   |                 ^^^^^^^

Standard output is empty