haskell - -ddump-simpl 是获得具体类型的最佳方法吗？

Question

我之前写过一个似乎可以工作的函数，但不幸的是我没有很好地编写代码，现在必须再次弄清楚[我正在修改我正在使用的 monad 变压器堆栈]。

run_astvn ::
    LowerMonadT (StateT LowerSketchData Identity) β
    -> Seq SketchAST
run_astvn x = get_ast2 $ runIdentity $
    runStateT (runStateT (runStateT x empty) empty)
        (LowerSketchData Set.empty)
    where get_ast2 = snd . fst

我想获取 get_ast2 的具体类型。我似乎能够通过终端输出添加标志 -ddump-simpl 和 grep 直到我发现，（清理了一下）

(((β, Seq SketchAST), Seq SketchAST), LowerSketchData) -> Seq SketchAST

（抱歉，这对其他人来说可能是无意义的，但重点是它对我很有用。）有没有更快/更方便的方法来做到这一点？如果不是很明显，我在这种情况下所说的“具体”的意思是上面的类型是有用的；知道 snd 的类型。 fst 不是:)。

Answer 1

目前我知道有两种方法可以做到这一点，它们都是黑客。第一种是使用隐式参数：

{-# LANGUAGE ImplicitParams #-}
import Control.Monad.State
import Control.Monad.Identity
import Data.Sequence
import qualified Data.Set as Set

data LowerSketchData = LowerSketchData (Set.Set Int)
type LowerMonadT m = StateT (Seq SketchAST) (StateT (Seq SketchAST) m)
data SketchAST = SketchAST

--run_astvn ::
--    LowerMonadT (StateT LowerSketchData Identity) β
--    -> Seq SketchAST
run_astvn x = ?get_ast2 $ runIdentity $
    runStateT (runStateT (runStateT x empty) empty)
        (LowerSketchData Set.empty)
--    where get_ast2 = snd . fst

然后，在 ghci 中：

*Main> :t run_astvn
run_astvn
  :: (?get_ast2::(((a, Seq a1), Seq a2), LowerSketchData) -> t) =>
     StateT
       (Seq a1) (StateT (Seq a2) (StateT LowerSketchData Identity)) a
     -> t

另一种方法是故意给出错误的类型签名并检查编译器如何抱怨。

import Control.Monad.State
import Control.Monad.Identity
import Data.Sequence
import qualified Data.Set as Set

data LowerSketchData = LowerSketchData (Set.Set Int)
type LowerMonadT m = StateT (Seq SketchAST) (StateT (Seq SketchAST) m)
data SketchAST = SketchAST

run_astvn ::
    LowerMonadT (StateT LowerSketchData Identity) β
    -> Seq SketchAST
run_astvn x = get_ast2 $ runIdentity $
    runStateT (runStateT (runStateT x empty) empty)
        (LowerSketchData Set.empty)
--    where get_ast2 = snd . fst
    where get_ast2 :: (); get_ast2 = undefined

这会给出错误：

test.hs:13:19:
    The first argument of ($) takes one argument,
    but its type `()' has none
    In the expression:
      <snip>

将错误的类型更改为 () -> ()：

test.hs:13:30:
    Couldn't match expected type `()'
                with actual type `(((β, Seq SketchAST), Seq SketchAST),
                                   LowerSketchData)'
    In the second argument of `($)', namely
      <snip>

现在我们知道类型应该类似于 (((β, Seq SketchAST), Seq SketchAST), LowerSketchData) -> ()。最后一次迭代去掉了最终的()，因为编译器抱怨：

test.hs:13:19:
    Couldn't match expected type `Seq SketchAST' with actual type `()'
    In the expression:
      <snip>

...所以另一个 () 应该是 Seq SketchAST 。

Answer 2

对编译器撒谎。添加错误的类型签名，然后它应该回复“无法将错误的类型与真实类型匹配”或当前的确切消息。