mirror of
https://github.com/rgleichman/glance.git
synced 2024-09-11 15:05:41 +03:00
Add Constants.hs.
This commit is contained in:
parent
2ddb5c8a09
commit
ec6837165a
13
app/Constants.hs
Normal file
13
app/Constants.hs
Normal file
@ -0,0 +1,13 @@
|
||||
{-# 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
|
Loading…
Reference in New Issue
Block a user