38 lines
1005 B
Haskell
38 lines
1005 B
Haskell
module Rlp.Parse.Associate
|
|
{-# WARNING "unimplemented" #-}
|
|
( associate
|
|
)
|
|
where
|
|
--------------------------------------------------------------------------------
|
|
import Data.HashMap.Strict qualified as H
|
|
import Data.Functor.Foldable
|
|
import Data.Functor.Foldable.TH
|
|
import Data.Functor.Const
|
|
import Data.Functor
|
|
import Data.Text qualified as T
|
|
import Text.Printf
|
|
import Control.Lens
|
|
import Rlp.Parse.Types
|
|
import Rlp.Syntax
|
|
--------------------------------------------------------------------------------
|
|
|
|
associate :: OpTable -> Decl' RlpcPs -> Decl' RlpcPs
|
|
associate _ p = p
|
|
|
|
{-# WARNING associate "unimplemented" #-}
|
|
|
|
examplePrecTable :: OpTable
|
|
examplePrecTable = H.fromList
|
|
[ ("+", (InfixL,6))
|
|
, ("*", (InfixL,7))
|
|
, ("^", (InfixR,8))
|
|
, (".", (InfixR,7))
|
|
, ("~", (Infix, 9))
|
|
, ("=", (Infix, 4))
|
|
, ("&&", (Infix, 3))
|
|
, ("||", (Infix, 2))
|
|
, ("$", (InfixR,0))
|
|
, ("&", (InfixL,0))
|
|
]
|
|
|