Haskell 哈斯克尔&x2B；持久性：分析错误可能是不正确的缩进或不匹配的括号

在过去的几个月里，我一直在学习Haskell，并尝试按照本教程学习Haskell+Persistent：

我以前没有遇到过这种语法（他们在教程中谈到'quasiqueotes'，所以我猜这就是它），但我认为，由于我直接从教程中获取了代码，它应该编译。但是，它不会，我得到以下错误：

/home/will/programming/learn-haskell/postgres-example/app/Main.hs:15:1: error:
    parse error (possibly incorrect indentation or mismatched brackets)
   |
15 | Person
   | ^


--  While building package postgres-example-0.1.0.0 using:
      /home/will/.stack/setup-exe-cache/x86_64-linux-tinfo6/Cabal-simple_mPHDZzAJ_3.0.1.0_ghc-8.8.4 --builddir=.stack-work/dist/x86_64-linux-tinfo6/Cabal-3.0.1.0 build exe:simple --ghc-options " -fdiagnostics-color=always"
    Process exited with code: ExitFailure 1

这是我的阴谋集团文件中的配置：

name:                                postgres-example
version:                             0.1.0.0
synopsis:                            An example of using Haskell and PostGres with persistent
description:                         Please see README.md
license:                             BSD3
license-file:                        LICENSE
author:                              Will Taylor
copyright:                           2020, Will Taylor
category:                            Web
build-type:                          Simple
cabal-version:                       >=1.10

executable simple
  hs-source-dirs:       app
  main-is:              Main.hs
  ghc-options:          -threaded -rtsopts -with-rtsopts=-N
  build-depends:        base
                        , persistent
                        , persistent-template
                        , persistent-postgresql
                        , monad-logger
  default-language:       Haskell2010

---

如果有人能帮我的话，那就太棒了。

我也是Haskell的初学者。遵循相同的文档，我试图将模式定义移动到另一个模块，并将其导入main。它只是无法处理相同的错误消息

在这里和那里尝试复制/粘贴代码并用postgres测试了2-3个小时之后，我在这个过程中意识到了一些东西。在文档中，包含语言特性的注释出现在文件的顶部

只需将注释移到顶部，然后再进行其他操作

{-# LANGUAGE EmptyDataDecls             #-}
{-# LANGUAGE FlexibleContexts           #-}
{-# LANGUAGE GADTs                      #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses      #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE QuasiQuotes                #-}
{-# LANGUAGE TemplateHaskell            #-}
{-# LANGUAGE TypeFamilies               #-}
{-# LANGUAGE DerivingStrategies         #-}
{-# LANGUAGE StandaloneDeriving         #-}
{-# LANGUAGE UndecidableInstances       #-}

module Sql.Schema    where

import           Database.Persist
import           Database.Persist.TH


share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
Person
    firstName String
    lastName String
    age Int Maybe
    PersonName firstName lastName
    deriving Show
BlogPost
    title String
    authorId PersonId
    deriving Show
|]

---

你能公布全部错误吗？我经常看到

可能不正确的缩进或不匹配的括号

，通常是缺少的

）

。我已经编辑了这篇文章以包含全部错误。你这个可爱的美人！我实际上已经放弃了，因为我找不到任何有帮助的东西！这是一个愚蠢问题的简单解决方案-谢谢！

{-# LANGUAGE EmptyDataDecls             #-}
{-# LANGUAGE FlexibleContexts           #-}
{-# LANGUAGE GADTs                      #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses      #-}
{-# LANGUAGE OverloadedStrings          #-}
{-# LANGUAGE QuasiQuotes                #-}
{-# LANGUAGE TemplateHaskell            #-}
{-# LANGUAGE TypeFamilies               #-}
{-# LANGUAGE DerivingStrategies         #-}
{-# LANGUAGE StandaloneDeriving         #-}
{-# LANGUAGE UndecidableInstances       #-}

module Sql.Schema    where

import           Database.Persist
import           Database.Persist.TH


share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
Person
    firstName String
    lastName String
    age Int Maybe
    PersonName firstName lastName
    deriving Show
BlogPost
    title String
    authorId PersonId
    deriving Show
|]