listStates :: IO ()
listStates = getStateFiles >>= traverse_ (putTextLn . T.pack)
listStates :: IO ()
listStates = getStateFiles >>= traverse_ (putTextLn . T.pack)
listStates = getStateFiles >>= traverse_ (putTextLn . T.pack)