rgleichman/glance
1
1
Fork 0
mirror of https://github.com/rgleichman/glance.git synced 2024-09-11 15:05:41 +03:00
Code Issues Projects Releases Wiki Activity

Add Constants.hs.

Browse Source
This commit is contained in:
Robbie Gleichman 2019-04-02 01:49:48 -07:00
parent 2ddb5c8a09
commit ec6837165a
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
app/Constants.hs Normal file
View 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