poppy-1.0.0: include-fail/SkippedChaptersNoSelectors.hs

{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE OverloadedRecordDot #-}
{-# LANGUAGE NoFieldSelectors #-}

module SkippedChaptersNoSelectors where

import Poppy.Internal.Include (Skip)
import Schema.Chapter (ChapterRow)
import Schema.Include.Book (BookWith (..))

bad :: BookWith Skip -> [ChapterRow]
bad row = row.chapters