CODEWITHSUNDEEP
listhaskelltypes
FracturedPixel
FracturedPixel

Reputation: 47

remove type from type list haskell

So i'm new to Haskell, and I was wondering if anyone could help me.

I've got a list of a custom data type like so:

type Title = String
type Manager = String
type Year = Int
type Fan = String
type Album = (Title, Manager, Year, [Fan])

And I have a pre-made static database of albums

albumDatabase :: [Album]
albumDatabase = [(...)]

And I have a function that returns all albums that a manager has made:

manAlbum :: String -> [Album] -> [Album]
manAlbum d database = filter ((\(_,album,_,_) -> d == album)) database

My question is, from this new list of all the managers albums, I need to retrieve only the fans and drop the Title, Manager and Year. However I am unsure of how to tell haskell that I only want this field from the custom datatype to be returned.

Upvotes: 3

Views: 528

Answers (2)

Aleph0
Aleph0

Reputation: 6084

Another solution might be to make Album an algebraic data type. I guess that the code might be easier to understand, when rewritten as follows:

type Title = String
type Manager = String
type Year = Int
type Fan = String
data Album = Album { title :: Title, manager :: Manager, year :: Year, fans :: [Fan]} deriving (Show)

albumDatabase :: [Album]
albumDatabase = [Album {title="A", manager="B", year=5, fans=["a","b"]}]

check :: Album -> String -> Bool
check a d=title a==d

manAlbum :: String -> [Album] -> [[Fan]]
manAlbum d database = map (\a->fans a) $ filter (\a->title a==d) database

Upvotes: 0

Johannes Riecken
Johannes Riecken

Reputation: 2515

As 4castle mentioned, you can use map:

getAlbumFans :: [Album] -> [[Fan]]
getAlbumFans database = map (\(_,_,_,fans) -> fans) database

Also you could make the manAlbum function more readable by giving it a more descriptive name like getAlbumsByManager and replacing String in the type signature with Manager.

Upvotes: 2

Related Questions