Frames-0.5.0: test/Mpg.hs

{-# LANGUAGE DataKinds, FlexibleContexts, TemplateHaskell, TypeApplications, TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-unused-top-binds #-}
module Main (main) where
import Frames

-- This table has a column, @"drv"@, with values that Frames has in
-- the past inferred the wrong type for.

tableTypes "Mpg" "test/data/mpg.csv"

drvCol :: (Drv ∈ rs) => Record rs -> Text
drvCol = rgetField @Drv

cylCol :: (Cyl ∈ rs) => Record rs -> Int
cylCol = rgetField @Cyl

dispCol :: (Displ ∈ rs) => Record rs -> Double
dispCol = rgetField @Displ

main :: IO ()
main = return ()