mirror of
https://github.com/rgleichman/glance.git
synced 2024-11-26 17:14:21 +03:00
14 lines
269 B
Haskell
14 lines
269 B
Haskell
{-# LANGUAGE PatternSynonyms #-}
|
|
module Constants
|
|
( pattern InputPortConst
|
|
, pattern ResultPortConst
|
|
) where
|
|
|
|
import Types(Port(..))
|
|
|
|
pattern InputPortConst :: Port
|
|
pattern InputPortConst = Port 0
|
|
|
|
pattern ResultPortConst :: Port
|
|
pattern ResultPortConst = Port 1
|