runAction :: Action String -> IO String
runAction a = extractValue <$> runErrorT (trapError a)
runAction :: Action String -> IO String
runAction a = extractValue <$> runErrorT (trapError a)
runAction a = extractValue <$> runErrorT (trapError a)