Question

感谢Benjamin Hodgson，我已经开始实现一个类型安全的SQL-Interface，从this stackoverflow问题开始。

据我所知，我已开始阅读the singleton paper。我发现看到工作代码有很多帮助，并努力看到提供的code工作。但是，代码已有三年历史，需要进行一些更新。大！现在我开始学习一些东西。这是第一步，删除带有type-literal字符串的提升类型AChar。

来自singletons-examples/DatabaseStar.hs

中的原始代码

{-# OPTIONS_GHC -fwarn-incomplete-patterns #-}
{-# Language PolyKinds, DataKinds, TemplateHaskell, TypeFamilies,
    GADTs, TypeOperators, RankNTypes, FlexibleContexts, UndecidableInstances,
    FlexibleInstances, ScopedTypeVariables, MultiParamTypeClasses #-}

module DatabaseStar where

import Data.Singletons
import Data.Singletons.CustomStar
import Data.Singletons.TH

$(singletons [d|
-- A re-definition of Char as an algebraic data type.
-- This is necessary to allow for promotion and type-level Strings.
  data AChar = CA | CB | CC | CD | CE | CF | CG | CH | CI
             | CJ | CK | CL | CM | CN | CO | CP | CQ | CR
             | CS | CT | CU | CV | CW | CX | CY | CZ
             deriving (Read, Show, Eq)

-- A named attribute in our database
  data Attribute a = Attr [AChar] a

-- A schema is an ordered list of named attributes
  data Schema a = Sch [Attribute a]
  |]

我发现AChar不满意，很快意识到不再需要它了。

但我不确定如何为此用例实现类型级Strings。有人可以提供链接供我调查和/或提示。

Answer 1

我认为类型级“字符串”已经存在 - 它们的名称为Symbol。

Word.next(word)

那就是说，我认为ghci> :set +t -XTypeInType ghci> import GHC.TypeLits ghci> import Data.Proxy ghci> Proxy :: Proxy "I'm a type level string!" Proxy it :: Proxy "I'm a type level string!"仍然不能很好地发挥这些作用。问题是它们缺乏类似字符串的行为（比如能够从字符中提取字符或创建字符串）。我相信最好的解决方案仍然是重新标记字符的丑陋。

带来＆＃34; The Singletons Paper＆＃34;最新。如何使用singleton库实现AChar数据类型

1 个答案: