mirror of
https://github.com/aaronallen8455/graph-trace.git
synced 2024-09-11 09:05:34 +03:00
18 lines
355 B
Haskell
18 lines
355 B
Haskell
{-# LANGUAGE KindSignatures #-}
|
|
{-# LANGUAGE ImplicitParams #-}
|
|
{-# LANGUAGE ConstraintKinds #-}
|
|
{-# LANGUAGE DataKinds #-}
|
|
module DebugPlugin.Test where
|
|
|
|
import Data.Kind
|
|
import GHC.TypeLits
|
|
|
|
type Debug (str :: Symbol) = (?x :: String)
|
|
|
|
test :: (Debug "yo", Num r) => r -> IO String
|
|
test _ = do
|
|
x <- getLine
|
|
let ?x = x
|
|
pure ?x
|
|
|