logWith
  :: (Show a, Show b) => String -> a -> Controller' st b -> Controller' st b
logWith msg val action = log (msg ++ " " ++ show val) action
logWith
  :: (Show a, Show b) => String -> a -> Controller' st b -> Controller' st b
logWith msg val action = log (msg ++ " " ++ show val) action
logWith msg val action = log (msg ++ " " ++ show val) action