update purescript-bridge

Author: peterbecich

app/Main.hs

@@ -4,5 +4,6 @@ import qualified MyLib (someFunc)
 
 main :: IO ()
 main = do
-  putStrLn "Hello, Haskell!"
+  putStrLn "Hello, Haskell!!!"
+
   MyLib.someFunc

cabal.project

@@ -3,6 +3,7 @@ packages:
 
 source-repository-package
   type: git
-  -- location: https://github.com/eskimor/purescript-bridge.git
-  location: https://github.com/peterbecich/purescript-bridge.git
-  tag: 793cd8206ae777dd8f77245c1c8dbeb597c7828f 
+  location: https://github.com/eskimor/purescript-bridge.git
+  tag: d43987ea406dbeb4f4013ecb857686a1b19451f0
+  -- location: https://github.com/peterbecich/purescript-bridge.git
+  -- tag: 793cd8206ae777dd8f77245c1c8dbeb597c7828f

feedback.yaml

@@ -1,6 +1,19 @@
 loops:
   cabal: cabal build all --enable-tests
-  test: |
-    cabal build all --enable-tests
-    cabal test all
-  check: nix flake check
+  test:
+    clear: false
+    hooks:
+      before-all:
+        #echo 'kill process at port 8080';
+        # lsof -t -i:8080 -sTCP:LISTEN;
+        # echo -e "$(lsof -t -i:8080 -sTCP:LISTEN)";
+        # kill -9 $(lsof -t -i:8080 -sTCP:LISTEN);
+    run: |
+      cabal build all --enable-tests
+      cabal test all
+      cabal run generate-purescript
+      cabal run halogen-chess
+    filter:
+      git: true
+      find: "-type f -not -name '*.purs'"
+  check: nix flake check -L

flake.lock

@@ -13,7 +13,7 @@
     ps-tools.follows = "purs-nix/ps-tools";
 
     purescript-bridge.url =
-      "github:eskimor/purescript-bridge/793cd8206ae777dd8f77245c1c8dbeb597c7828f";
+      "github:eskimor/purescript-bridge/d43987ea406dbeb4f4013ecb857686a1b19451f0";
     purescript-bridge.flake = false;
 
 
@@ -153,6 +153,7 @@
           };
 
           haskellProjects.default = {
+            # basePackages = pkgs.haskell.packages.ghc98;
             basePackages = pkgs.haskellPackages;
             settings = {
               brick.jailbreak = true;

flake.nix

@@ -21,13 +21,13 @@ import Game.Chess
 import Game.Chess.Move (Move (Move))
 import Game.Chess.Orphans ()
 
+
 newtype Board = Board [Sq]
 
 allPieces :: Board
 allPieces = Board $ enumFrom minBound
 
 deriving instance Generic Board
-
 deriving instance ToJSON Board
 deriving instance FromJSON Board
 

src/Game/Chess/Board.hs

@@ -23,10 +23,8 @@ import Prelude
 newtype Board =
     Board (Array Sq)
 
-instance encodeBoard :: Encode Board where
-  encode = genericEncode $ defaultOptions { unwrapSingleConstructors = false , unwrapSingleArguments = false }
-instance decodeBoard :: Decode Board where
-  decode = genericDecode $ defaultOptions { unwrapSingleConstructors = false , unwrapSingleArguments = false }
+
+
 instance encodeJsonBoard :: EncodeJson Board where
   encodeJson = genericEncodeAeson Argonaut.defaultOptions
 instance decodeJsonBoard :: DecodeJson Board where

src/Game/Chess/Board.purs

@@ -22,10 +22,8 @@ data Color =
     Black
   | White
 
-instance encodeColor :: Encode Color where
-  encode = genericEncode $ defaultOptions { unwrapSingleConstructors = false , unwrapSingleArguments = false }
-instance decodeColor :: Decode Color where
-  decode = genericDecode $ defaultOptions { unwrapSingleConstructors = false , unwrapSingleArguments = false }
+
+
 instance encodeJsonColor :: EncodeJson Color where
   encodeJson = genericEncodeAeson Argonaut.defaultOptions
 instance decodeJsonColor :: DecodeJson Color where
@@ -54,10 +52,8 @@ data PieceType =
   | Queen
   | King
 
-instance encodePieceType :: Encode PieceType where
-  encode = genericEncode $ defaultOptions { unwrapSingleConstructors = false , unwrapSingleArguments = false }
-instance decodePieceType :: Decode PieceType where
-  decode = genericDecode $ defaultOptions { unwrapSingleConstructors = false , unwrapSingleArguments = false }
+
+
 instance encodeJsonPieceType :: EncodeJson PieceType where
   encodeJson = genericEncodeAeson Argonaut.defaultOptions
 instance decodeJsonPieceType :: DecodeJson PieceType where

src/Game/Chess/Internal.purs

@@ -84,10 +84,8 @@ data Sq =
   | G8
   | H8
 
-instance encodeSq :: Encode Sq where
-  encode = genericEncode $ defaultOptions { unwrapSingleConstructors = false , unwrapSingleArguments = false }
-instance decodeSq :: Decode Sq where
-  decode = genericDecode $ defaultOptions { unwrapSingleConstructors = false , unwrapSingleArguments = false }
+
+
 instance encodeJsonSq :: EncodeJson Sq where
   encodeJson = genericEncodeAeson Argonaut.defaultOptions
 instance decodeJsonSq :: DecodeJson Sq where

src/Game/Chess/Internal/Square.purs

@@ -27,10 +27,8 @@ newtype Move =
     , to :: Sq
     }
 
-instance encodeMove :: Encode Move where
-  encode = genericEncode $ defaultOptions { unwrapSingleConstructors = false , unwrapSingleArguments = false }
-instance decodeMove :: Decode Move where
-  decode = genericDecode $ defaultOptions { unwrapSingleConstructors = false , unwrapSingleArguments = false }
+
+
 instance encodeJsonMove :: EncodeJson Move where
   encodeJson = genericEncodeAeson Argonaut.defaultOptions
 instance decodeJsonMove :: DecodeJson Move where