HSpec add set-up method

hspec_add_setup.hs

import           Test.Hspec           (Spec, hspec)
import           Test.Hspec.Core      (SpecTree (..), fromSpecList, runSpecM)

addSetUp :: IO () -> Spec -> Spec
addSetUp action spec = fromSpecList $ (map addActionToSpecItem (runSpecM spec))
  where addActionToSpecItem :: SpecTree -> SpecTree
        addActionToSpecItem (SpecGroup s l) = SpecGroup s (map addActionToSpecItem l)
        addActionToSpecItem (SpecItem s f) = SpecItem s (\params -> (action >> (f params)))

printStuff :: IO ()
printStuff = do
  putStrLn ">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>"

main :: IO ()
main = do
    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
                { csParseExtra = parseExtra
                }
    foundation <- makeFoundation conf
    hspec $ (addSetUp printStuff) $ do
        yesodSpec foundation $ do
            homeSpecs
            entriesSpecs
            modelSpecs