Skip to content

Instantly share code, notes, and snippets.

@psilospore

psilospore/getProperties.hs

Created January 19, 2022 03:36
Show Gist options
  • Save psilospore/71726d505a98c821136643ae43937953 to your computer and use it in GitHub Desktop.
Save psilospore/71726d505a98c821136643ae43937953 to your computer and use it in GitHub Desktop.
Download ZIP
Get list of property names from a Haskell Record
Raw
getProperties.hs
{-# LANGUAGE DeriveDataTypeable #-}
import qualified Data.Data as D
import Data.Data (Data)
data Gurren = Gurren {
owner :: String
, spiralPower :: Natural
} deriving (Data)
let properties = D.constrFields . head . D.dataTypeConstrs $ D.dataTypeOf (undefined :: Gurren)
-- ["owner", "spiralPower"]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment