ddc-source-tetra-0.4.1.1: DDC/Source/Tetra/Prim/OpStore.hs

module DDC.Source.Tetra.Prim.OpStore
        (typeOpStore)
where
import DDC.Source.Tetra.Prim.Base
import DDC.Source.Tetra.Exp


-- | Take the type of a primitive arithmetic operator.
typeOpStore :: OpStore -> Maybe (Type Name)
typeOpStore op
 = case op of
        _       -> Nothing