packageTextArea :: State -> Widget Action
packageTextArea _ = Ulmus.newWidget "packageTextArea" $ do
     _ <- getMultilineText "" ! atr "rows" "20" `fire` OnKeyUp
     newConfig <- liftIO $ getValueFromId "#packageTextArea event textarea"
     return $ NewPackage newConfig
packageTextArea :: State -> Widget Action
packageTextArea _ = Ulmus.newWidget "packageTextArea" $ do
     _ <- getMultilineText "" ! atr "rows" "20" `fire` OnKeyUp
     newConfig <- liftIO $ getValueFromId "#packageTextArea event textarea"
     return $ NewPackage newConfig
packageTextArea _ = Ulmus.newWidget "packageTextArea" $ do
     _ <- getMultilineText "" ! atr "rows" "20" `fire` OnKeyUp
     newConfig <- liftIO $ getValueFromId "#packageTextArea event textarea"
     return $ NewPackage newConfig