Implement most of usersShow

bradparker · bradparker · commit 10aa133a7b45 · 2019-10-02T20:46:32.000+10:00
What to do when we don't _find_ a user for the username param?
diff --git a/src/Main.hs b/src/Main.hs
@@ -7,6 +7,7 @@
 module Main where
 
 import Data.Aeson (ToJSON)
+import Data.Foldable (find)
 import Data.Proxy (Proxy(Proxy))
 import Data.Time (Day, fromGregorian)
 import GHC.Generics (Generic)
@@ -65,8 +66,14 @@ users =
 usersIndex :: Handler [User]
 usersIndex = pure users
 
+matchesUsername :: String -> User -> Bool
+matchesUsername uname = (uname ==) . username
+
 usersShow :: String -> Handler User
-usersShow _uname = _
+usersShow uname =
+  case find (matchesUsername uname) users of
+    Nothing   -> _
+    Just user -> pure user
 
 usersServer :: Server UsersAPI
 usersServer = usersIndex :<|> usersShow
