Clean up, use std lib functions

src/Tetris.hs

@@ -35,6 +35,7 @@ import qualified Linear.V2 as LV
 import System.Random (getStdRandom, randomR)
 
 import Prelude hiding (Left, Right)
+import Control.Monad (mfilter)
 import Data.Bool (bool)
 import Data.Maybe (fromMaybe)
 import Data.Monoid (First(..))
@@ -225,7 +226,7 @@ rotate g = g & block .~ nextB
   nextB     = fromMaybe blk $ getFirst . mconcat $ First <$> bs
   bs        = map ($ blk) safeFuncs
   safeFuncs = map (mkSafe .) funcs
-  mkSafe    = boolMaybe (isValidBlockPosition brd)
+  mkSafe    = mfilter (isValidBlockPosition brd) . pure
   funcs     = [rotate', rotate' . translate Left, rotate' . translate Right]
   blk       = g ^. block
   brd       = g ^. board
@@ -308,9 +309,5 @@ shuffle xs
         (y :< ys)     = Seq.viewl right
     fmap (y <|) (shuffle $ left >< ys)
 
--- | Take predicate and input and transform to Maybe
-boolMaybe :: (a -> Bool) -> a -> Maybe a
-boolMaybe p a = if p a then Just a else Nothing
-
 v2 :: (a, a) -> V2 a
 v2 (x, y) = V2 x y

tetris.cabal

@@ -1,8 +1,6 @@
 name:                tetris
 version:             0.1.2.0
--- synopsis:
+homepage:            https://github.com/samtay/tetris#readme
--- description:
-homepage:            https://github.com/SamTay/tetris#readme
 license:             BSD3
 license-file:        LICENSE
 author:              Sam Tay
@@ -26,7 +24,6 @@ library
                      , linear
                      , random
                      , vty
-
   default-language:    Haskell2010
 
 executable tetris