{-# OPTIONS_GHC -Wall #-}
{-# LANGUAGE TemplateHaskell #-}

import Language.Haskell.TH.Syntax
import GHC.Base
import GHC.Show

import DataStructure
import Fields

fields :: [(DataStructure -> String, String)]
fields = $((>>=) (reify ''DataStructure)
                 (getAllFields ["DataStructure"]))

main :: IO ()
main = do
   --putStrLn . show $ fields
   putStrLn "junk"
   return ()