init data and code templates

src/Game.hs

+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
+
+module Game where
+
+import Data.Aeson
+import GHC.Generics
+
+data Game = Game
+  { next :: String
+  -- board :: [[Char]]
+  }
+  deriving (Generic, FromJSON, ToJSON, Show)

src/Lib.hs

+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE RecordWildCards #-}
+
 module Lib where
 
 import Aws.Lambda
 import Data.Aeson
-import GHC.Generics
-
-data Person = Person
-  { personName :: String,
-    personAge :: Int
-  }
-  deriving (Generic)
-
-instance FromJSON Person
-
-instance ToJSON Person
+import qualified Data.ByteString.Lazy.Char8 as ByteString
+import Minimax (minimax)
+import Request (Request (..))
+import Response (Response (..))
 
-handler :: Person -> Context () -> IO (Either String Person)
-handler person context =
-  if personAge person > 0
-    then return (Right person)
-    else return (Left "A person's age must be positive")
+handler :: Request -> Context () -> IO (Either String Response)
+handler Request {..} context = do
+  case decode (ByteString.pack body) of
+    Just game ->
+      pure $
+        Right
+          Response
+            { statusCode = 200,
+              body = minimax game
+            }
+    Nothing ->
+      pure $
+        Right
+          Response
+            { statusCode = 400,
+              body = "invalid game"
+            }

src/Minimax.hs

 module Minimax where
+
+import Game (Game (..))
+
+nextMove :: String -> String
+nextMove str
+  | str == "X" = "O"
+  | otherwise = "X"
+
+minimax :: Game -> String
+minimax game =
+  "next " ++ nextMove (next game)

src/Request.hs

+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
+
+module Request where
+
+import Data.Aeson
+import GHC.Generics
+
+data Request = Request
+  { resource :: String,
+    body :: String
+  }
+  deriving (Generic, FromJSON)

src/Response.hs

+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
+
+module Response where
+
+import Data.Aeson
+import GHC.Generics
+
+data Response = Response
+  { statusCode :: Int,
+    body :: String
+  }
+  deriving (Generic, ToJSON)