blergh.hs

import Data.Text (Text, pack, unpack)

tables :: [Maybe Text]
tables = [ Just $ pack "Foo"
         , Just $ pack "Bar"
         , Nothing
         , Just $ pack "Baz"
         ]

main :: IO ()
main = sequence_ $ do
    foo <- tables
    let output = case foo of
                     Nothing -> "Nothing"
                     Just a  -> unpack a
    return $ putStrLn output