Internal.Flag, and Internal.Model

Author: ajnsit

spago.dhall

@@ -4,7 +4,15 @@ You can edit this file as you like.
 -}
 { name = "my-project"
 , dependencies =
-  [ "concur-core", "concur-react", "console", "effect", "psci-support" ]
+  [ "concur-core"
+  , "concur-react"
+  , "console"
+  , "effect"
+  , "integers"
+  , "psci-support"
+  , "strings-extra"
+  , "tuples"
+  ]
 , packages = ./packages.dhall
 , sources = [ "src/**/*.purs", "test/**/*.purs" ]
 }

src/Internal/Flag.purs

@@ -56,7 +56,7 @@ module Internal.Flag
     , yAlign
     ) where
 
-import Data.Eq ((==))
+import Data.Eq (class Eq, (==))
 import Data.Field ((+), (/))
 import Data.Int (round, toNumber)
 import Data.Int.Bits as Bitwise
@@ -73,6 +73,7 @@ data Flag
     = Flag Int
     | Second Int
 
+derive instance eqFlag :: Eq Flag
 
 none :: Field
 none =