Spock and Yesod persisted types

Person.hs

{-# LANGUAGE EmptyDataDecls             #-}
{-# LANGUAGE FlexibleContexts           #-}
{-# LANGUAGE FlexibleInstances          #-}
{-# LANGUAGE GADTs                      #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses      #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE QuasiQuotes                #-}
{-# LANGUAGE TemplateHaskell            #-}
{-# LANGUAGE TypeFamilies               #-}




-- This works for some reason. PersonId is correctly configured and sorted ASC with results that come back from the DB




module Person where

import           Control.Monad.Logger      (LoggingT, runStdoutLoggingT)
import           Data.Aeson                hiding (json)
import           Data.Monoid               ((<>))
import           Data.Text                 (Text, pack)
import           Database.Persist          hiding (delete, get)
import qualified Database.Persist          as P
import           Database.Persist.Class    hiding (delete, get)
import           Database.Persist.Sqlite   hiding (delete, get)
import           Database.Persist.TH
import           Web.Spock
import           Web.Spock.Config

mkPersist sqlSettings [persistLowerCase|
Person
    name String
    age Int
    deriving Show
|]

type Api = SpockM SqlBackend () () ()

runSQL :: (HasSpock m, SpockConn m ~ SqlBackend) => SqlPersistT (LoggingT IO) a -> m a
runSQL action = runQuery $ \conn -> runStdoutLoggingT $ runSqlConn action conn

getAll :: Api
getAll = get "person" $ do
  allPeople <- runSQL $ selectList [] [Asc PersonId]
  json allPeople

PersonModel.hs

{-# LANGUAGE GADTs                      #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE QuasiQuotes                #-}
{-# LANGUAGE TemplateHaskell            #-}
{-# LANGUAGE TypeFamilies               #-}

module PersonModel where

import Database.Persist
import Database.Persist.TH
import Database.Persist.Sqlite
import Control.Monad.IO.Class (liftIO)

mkPersist sqlSettings [persistLowerCase|
Person
    name String
    age Int
    deriving Show
|]

PersonRoute.hs

{-# LANGUAGE EmptyDataDecls             #-}
{-# LANGUAGE FlexibleContexts           #-}
{-# LANGUAGE FlexibleInstances          #-}
{-# LANGUAGE GADTs                      #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses      #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE QuasiQuotes                #-}
{-# LANGUAGE TemplateHaskell            #-}
{-# LANGUAGE TypeFamilies               #-}



-- This does *NOT* work for some reason. PersonId yields the error:
-- Data constructor not in scope:
--  PersonId :: EntityField record0 typ0

-- For reference I'm doing https://www.yesodweb.com/book/persistent#persistent_code_generation
-- and it shows the exported code from the template.



module PersonRoute where

import           Control.Monad.Logger      (LoggingT, runStdoutLoggingT)
import           Data.Aeson                hiding (json)
import           Data.Monoid               ((<>))
import           Data.Text                 (Text, pack)
import           Database.Persist          hiding (delete, get)
import qualified Database.Persist          as P
import           Database.Persist.Class    hiding (delete, get)
import           Database.Persist.Sqlite   hiding (delete, get)
import           Database.Persist.TH
import           Web.Spock
import           Web.Spock.Config

import           Models.Person

type Api = SpockM SqlBackend () () ()

runSQL :: (HasSpock m, SpockConn m ~ SqlBackend) => SqlPersistT (LoggingT IO) a -> m a
runSQL action = runQuery $ \conn -> runStdoutLoggingT $ runSqlConn action conn

getAll :: Api
getAll = get "person" $ do
  allPeople <- runSQL $ selectList [] [Asc PersonId]
  json allPeople